If you have a problem that can be solved by a computer— we have a systems solution. 

* Two central processors with maximum RAM capacities of 56K and 384 K bytes 

* Three types of disk drives with capacities of 175K, 1.2M and 16M bytes 

* Two dot matrix printers with 80 and 132 line capacity 

A Selectric typewriter interface and a daisy wheel printer 

Match these to your exact need, add one or more of our intelligent terminals and put together 
a system from one source with guaranteed compatibility in both software and hardware. 

Southwest Technical Products systems give you unmatched power, speed and versatility. They 
are packaged in custom designed woodgrain finished cabinets. Factory service and support on 
the entire system and local service is available in many cities. 




SOUTHWEST TECHNICAL PRODUCTS CORPORATION 

219 W. RHAPSODY 

SAN ANTONIO, TEXAS 78216 (512) 3440241 
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be indicated as such. All letters must be signed. We are 
interested in receiving letters that will benefit or alert our 
readers. Praise as well as gripes is always good subject 
matter. Your name may be withheld upon request. If you 
have had a goid experience with a 6800 vendor please 
put it in a letter. If the experience was bad put that in a 
letter also. Remember, if you tell us who they are then it is 
only fair that your name not' be withheld. This means that 
all letters published, of a critical nature, cannot have a 
name withheld. We will attempt to publish 'verbatim' 
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WANT A CLASSY CHASSIS? 

SYSTEM 68 by GIMIX 



See GHOST Ad page 43 



• AC luse holder 

• Removable AC. cord 

• Exhaust Ian 

• Punched tor 10 D type date connectors. 
4 video connectors end alolled tor 
ribbon cables 

• Venlllellon alots, direct cooling sir over 
boards Ural 



CABINET 




Heavyweight aluminum painted inside and oul in grey and 
black baked enamel finish. Size: 18 widex2l" deepx7" high. 

MOTHER BOARD 

Hardware recontlgurable lo give you the utmost versatility tor use with 
various SS SO bus sollware packages Gold plated pins lo Insure long 
lasting electrical contact tor protection against corrosion Fifteen SO 
pin slots plus eight OIP switch addressable 30 pin I/O slots con- 
figurable to 4 or S decoded addresses The fully buttered HO block is 
addressable by OlP switch lo any 32 or 64 byte boundary and can also 
be disabled UOt end U02 ol the SO pin bus can be strapped lo UD3 
end U04 ol I he 30 pin bus A tully shielded. (.090" thick), double sided 
PC board wiih noise reducing ground lines on the bottom side that 
separate all deta. address, and signal lines, and a lull ground plane on 
the lop aide A 14 position clamping terminal block tor all power and 
other external connections eliminates soldering, cnmplng or forming 
ol wires 



The Ultimate in SS 50 BUS Reliability 



Mainframe: includes chassis 

power supply switches, __.. _ 

fan and mother board $748.19 

16K Systems from $1294.29 

Includes: Mainframe cabinet. 

mother board, power supply. 

fan, CPU, 16K sialic RAM. and 

choice of I/O card 



• Holds 2 5'-. disk drives (not included) 

• GIMIX disk regulator cards (optional) 
mount on drives and wire lo tiller 
assembly board 

• LED power indicator 

• 3 position removable keyswllch 
(Oh. Power On-Resel Oil; Both Onl 

• Reset • can be locked out 

• Optional tiller plates (when no drives 
are used) 



POWER SUPPLY 

Designed lo power a tully loaded system plus I wo 5'jt" disk drives 
and keep running at constant voltage outputs even under adverse AC 
power inpul conditions It consists of: A 550 VA Ferro-resonem cons 
tan I voltage transformer, over IB pounds ol brute force custom design 
ed lor GIMIX lo GIMIX" specs, an AC resonant capacitor. 3 DC (liter 
capacitors, and GIMIX' unique litter assembly board thai sua on topol 
the litter capacllora and includes Individual luses lor each output, 
bleeder reaialors, and a clamping terminel block lor easy wiring con. 
nectlons Almost a Ouetler. farad of DC Filtering Brown oul ana over 
vo/lage Insurance Supplies 8V at 25 Amps, 4 15 Volts at 5 Amps and 
- 15 Volts at 5 Amps from AC Inpul vollages renging Irom 90 to 140 
Volta 




SS 50 BUS 80 X 24 VIDEO BOARD 



-i ■ 




M<»mrjfU'* 



16K Static RAM Boards 
for the SS 50 Bus S298.13 

• Gold bus connectors • 4 separate 4K Blocks 

• Individual Addressing. Write Protect, and Enable/ 
Disable for each Block 

As above with Sockets and Software control features 368.1 6 

All GIMIX memory boards ere assembled. Burnlln tor 2 weeks. 
and tested at 2 MHz 




Deluxe 
Version 
S458.76 

Other Video 
Boards Irom 
$198 71 



vVitn hardware scrolling, it addressable cursor and multiple character 
generators ll includaa • IMS2?I« JPROM thai conlaini a lull 128 uppei and lower 
ca«4 ASCII chaiecter i«t with u»e descenders, plus a socket (or another rus 2716 
(or an optional !?B itm e v U H set. Drue 2K o( RAM for user defined programmable 
character mi* This gives the user ihe ability 10 crenie hri own hairogiyonics. 
alphabet graphic elements, etc and store litem on PROM, disk or tape. 

The user can choose and intermix 3d* different characters from any or all 01 trie 
character generators and orsplay up 10 23* at one lime, normally or inversely and 
at full or naif intensity, at any location on the screen Contiguous date ctierecisf 
calls permit solid line* and connecting patterns with user definable giephic 
elemenle 

It is addressable to any 2k boundary GtiOSTatxe addressing allows multiple 

Ootids at Ihe same address, nuking It ideal lor multiuser apprtcalrons The 

available software includes a CMxeua video Based 3*. ROM monitor, standalone 
driver routines, and a piogram to craele user defined characters 



8K PROM BOARD $98 34 

•Holds eight 2708 or 2708-compallble ROMS 

• DIP switch addressable to any 8K boundary 

• Gold Bus Connectors 
2708s $7.90 each 

Add $10 handling charge on orders under $200 




Phone, write or see your dealer lor complete brochure and price list 

l^rBsSHflMBH^L^r 1337 WEST 37th PLACE 

l_B I I jf inC. CHICAGO. ILLINOIS £0609 

•aVsavll I |.atjT'% k (312) 927 5510 ■ TWX 910 22t 4055 

The Company that delivers. 

Quality Electronic products since 1975. 
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DIGITAL 

SERVICE a 
DESIGN 

P.O. BOX 741 
NEWARK, OHIO 43055 
Phone (614)366 6314 





DSD P/R-32K $27.00 

32K or 16K EPROM & RAM memory card. 
2716 2K x 8 or 2758 1K x 8 5V only EPROMS. 
TMS 401 6 2K x 8 or MK 41 1 8 1 K x 8 5V RAMS. 
Up to 4 independent addressed 8K blocks. Dip 
switch or jumper selected. Size 9" x 5 1 /2" 

!>f 7 ■llllll, 

KMMiiiiii 

ft, 1 HUM u 

c/uii|Lint 

m l HMM I » I M > I I Min i l» w*XW*t w ~»» 

DSD 2114-16K $27.00 

Full Static 1 6K Ram memory card designed to 
use the 21 1 4 or TMS 4045 1 024 x 4 Static Ram. 
The card has two independent addressed 8K 
memory blocks. Card size 9" x 5Vs". Power 
requirements 7-8V unreg. @ 3.5A. 

DSD U P 8255M $14.00 

Universal parallel interface card with wire wrap 
area using INTEL'S 8255 parallel peripheral 
interface chip. 24 programmable I/O lines. 
(Three 8 bit Ports or Two 8 bit Ports with hand- 
shaking) Card size 5Va" x 5" Standard SS-50 30 
pin I/O BUS. 5V only. 

Cards are bare with data and edge connector, 
Ohio residents add 4 1 /2% sales tax. 

*6847 Color Graphic card in design* 



'WHY CAAJ'T YDUP OflOO KECP 
THACK OF THAT FOR YOU?" 



now. IT CAN 



K11H 



1 99 K U|p 

- a dtiUn manager- 

LOOKUP - * DATA MAMGEft - IS A SIMPLE* EASY TO Utc F1LII40 tTSTifl 
fOfi DATA Of ALL KIMOS. A f[W MINUTES 15 ALL Till LCARNI1YG TINE 
flEOLMRED 70 HAVr A POWERFUL tNFOnKATIOn RLTRUVAL TOOL A) YOU* 

olgrosAL. lookup rums tx a niMmun flex sntt* - ho fxira k^crv 

TO BLJr. LOOKUP'S NLt 5t«ticTlJ«t ALi0W$ StOflFD DATA TO &* ACUSU0 
f»oM BASK OR Ah tOJTOR FOR COMPLEX MATHEMATICAL Oft EPlTING FUNCTIONS, 
IT IS MNtTUH IK VAST ASSV&LV LAnKUACi HUH SOURCE tIMlHCS AND SOURCE 
DM ftlSR, 

LOOKUP CWH COMPUTE HETh S IMCH MIMOISK AMD RtrERlNCf KAWjAL. 
AN IIJDEJC OF ALL &JU RC.I.A1E* ARTICLES IK J(iT MAJOR MOflflV t-WGAIIMS 
IS PROVIDED (HEL FOR IHCKJIRY TRON JISK, SlPPOfll FOR FL£X VERSION 2.0 
IS ALSO INCLUDED. 

LOOKUP IS AVAlLA»Lt FOR S49.9t> <POS7AtE Ra|d> FflOM: 

KYCfiOFTMrtRE SYSffcfB 
P. 0, BOX 1)38 

ST. CIlnfiLES niSSOJiRI G5M 
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6800 DISK SOFTWARE 

DISK SORT. MERGE. Up to 10 fields per record, string or 
numeric. Increasing or decreasing order. Available for dual 
Flex' or Percom disk systems, but written in Basic so it can 
be adapted to others. With source code on disk, instructions 
$35. With source code and instructions only, no disk, $30. 

BASIC UTILITY PACK. Simplifies documentation of Basic 
programs, speeds them up too. Four programs renumber and 
fix all references in GOTO, GOSUB, THEN, ON . . GOTO 
and RESTORE statements, edit Basic source programs, allow 
meaningful variable names, produce neat program listings, 
provide an index of variables used, speed up execution and 
cut down on memory usage of some programs. Supplied with 
all source code on Flex' or Percom disk for $30: limited 
cassette version is $20. 

INTERRUPT DRIVEN TERMINAL DRIVER overlaps out- 
put with computation, speeds up Basic or machine language 
programs. With full source code. Cassette version $20, Percom 
disk version $25. 

CHECKBOOK BALANCER completely crosschecks check, 
book against bank statement and cancelled checks, prepares 
year-to-date output file for end of year summary. With full 
source code in Basic on cassette $20. Flex* or Percom disk 
version at $40 includes year-end income tax summary pro- 
grams. 

ALL ABOVE SOFTWARE Includes full source code and 
instructions, postage and handling, (Specify which DOS ) 

(J 
Master Charge, VISA or C.O.D. orders accepted. 

STAR. KITS 
P.O. Box 209, Mt. Kisco, N.V. 10549 ."" 
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6809 FOR THE 6800 ($69.95) 



Byion Seaslrunk 
%Porco(n 51 1 N. Ktrtly 
Garland. Tx 75042 



I kept agitating Harold (Harold Mauch of Percom Data) to give me one 
of his 6809 chips. He always put me off by saying 6809 chips were in 
short supply and besides I had not finished the INDEX driver software 
for the Smoke Signal Disk Controller. One day in a fit of dark humor, 
Harold gave me a "non-working" 6809 which Motorola had supplied for 
photographic purposes. 

Curiosity finally got the best of me so I talked Mike (Mike 
Foreman, Percom's 6809 project engineer) into plugging my 6809 into 
his development system. EXPERIMENTERS REVENGE! The thing worked! To 
this day I have not found out what was supposed to be wrong with the 
chip (except that I can't get it to run at 2 mhz! ) . 

Although I am sure Harold had seconds thoughts, he let me keep the 
chip. This was on a Friday afternoon. To avoid the verbal harassment 
I was sure to get if I didn't do something with the 6809, I began to 
think of the easiest way to get it running. 

Percom's 6809 circuit cards were as scarce as No-Lead gasoline at 
49.9. Besides I knew I shouldn't press my luck. I thought about 
wire-wrapping an entire CPU board but that would take at least a week 
spare time; everyday of which would mean enduring additional 
disparaging remarks from my colleagues. Besides it was a weekend and 
I couldn't find an SS-50 proto board anywhere. 

After studying the schematic of my MP-A2 processor card I decided 
the easiest approach would be to mount the 6809 on a piece of 
perf-board (Radio Shack was still open) together with a 4 mhz crystal, 
a couple of TTL qates, and a 40-pin wire-wrap socket which would plug 




• Record and playback at 120, 
60 or 30 self-clocking bytes per 
second (extended Kansas City 
Standard) 

• 1200, 600 or 300 baud data 
terminal interface 

• Dual cassette operation 

• Compatible with SWTPC cas- 
sette software 

• Optional kit permits program 
control of cassettes 

• Optional adaptor permits inter- 
facing with any computer 



Upgrade your SWTPC 6800 system to 1200 baud with 
PerCom's CIS-30+ dual-cassette/terminal interface 



The CIS-30+ . . . four times as fast as SWTPC's AC-30 with the same dual- 
cassette capability . . . plus a 1200-baud data terminal interface ... in a SWTPC 
color-compatible package that's only 1/10 the size of the AC-30. 

Dependable? The simplicity of Harold Mauch PeiCom Data designs says more 
than any well-chosen words. Simply put, for only $79.95* you get the fastest, most 
dependable dual function interface you can buy for your SWTPC 6800. 

To order or request literature call Percom toll-free 1-800-527-1592. 
Per Com 'peripherals for personal computing' 



PEFCOM 



PERCOM DATA COMPANY. INC. 
Ill- PI ,,H 
21 1 N KIRBY ■ CARL AND. TX 75042 
(2l4) 273-3421 

*KK price Assembled and tssled: 
$99.95 t shipping Tex res. add 
5% lax BAG & MC available 
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fclM TO lift JLOAPFtl 

Mill, I 1. 

into the 6800 socket. To get the 6809 clock and reset out to the bus 
I removed the 6875 clock generator from its socket and replaced it 
with a 16-pin DIP header which jumpered pin 7 to pin 13 and pin 12 to 
pin 14. You can get the rest of the details from the attached 
schematic and photograph. 

I'm not sure it's worth the effort to modify the older MP-A 
processor card because there is no easy way to install a different 
PROM for the operating system. 

Obviously the SMARTBUG monitor I used with the 6800 would not work 
with the 6809. So I burned a PROM with a short 6809 program which did 
nothing but print a string of "AAAAA..." on the terminal. It worked 
perfectly the first time I applied power. 

Now a 6809 which does nothing but print "AAAAA..." may not seem 
like the pinnacle of software development but I was so excited I 
grabbed the wrong end of the soldering 
title of "Rightie" ! I played with several 
decided to wait until monday morning to 
moni tor . 

Monday morning I displayed my cleverness to the other engineers and 
technicians at Percom. Now you have to understand that Harold gets a 
bit more excited than most normal people. When he saw my adapter he 
began to sputter something about torpedos and SWTP and how fast could 
I get the PCB layed out. 

This weekend I'm laying out the PC board (as well as working on the 
Smoke driver for INDEX - Is there no justice?) . Percom plans to make 
available a version of their 6809 system monitor (PSYMON) on a 2716 
which will work with this adapter for $69.95. You can also get the 
source and object of the monitor on diskette (Percom format) for 
$29.95 and burn your own PROM. A kit of parts including the 6809, 
crystal, and PCB will be available from Percom or a Percom dealer in 
August for $69.95. 



iron and earned a one week 
more simple programs but 
get a copy of Percom' s 6809 
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DATA FILES 



Gene Embry 

Rl. 1, Box 151 B-1-A 

Morrlsvllle. NC 27560 



T he storage of a !ar9e nuiaber of records on a "ail 
List data Files, alaost requires the use oF fairly 
short strin9 lengths. ! say "aluost" because 
one Might use soae concatenation techniques 
to put all tkf iteas oF a Mai! list into a 
sin9le strin9 usin9 de-Ii«iters. e ORGET !T! 



Lines #30 to 99 sets the STR!NG=82. 
Lines #100 - 199 poke into RAH a prograM 
starting at location $5800. This prograM is 
The '.'SEP called by GENERAL. PRT. IF you 
have never dis-asse«b!ed a pro9ra» written in 
deciua! — new is your chance! 

Lines #200 - 299 pemits selection oF the desired 
letter previoulsy written and saved. 



One use oF a "ail List is to send a letter 
to all or part oF the =eop!e on it. Letters 
generally require strinsi lengths Much greater 
than the string lengths used during the Mani- 
pulation e f the Mail list File. Ke need away 
to deal «rth this. 

Using CoMPUterware's Basic, how to we send all 
people on our nail list a letter that was 
written using a string value set equal to B2. 



Lines #300 - 399 DL* is used in version B.O 
and upward to allow use oF cotmas. Re«ove if 
using version 7,0 

Lines #1000 - !?90 this routine is the Major 

section oF this prograM. Each line oF the File 
is called up and then character-by-character 
is reverted into its deciMal equivalent via 

(line !0*2) and ponee into the nem neMory 

location. 



Dur f irsl atteMPt was to LOAD in a proaran 
<string*24) which printed the address infor- 
mation then CHAIN in another progra« (string=B2) 
which Fetched and printed the letter. Finally, 
we CHAINED bacK the orisinal prograu 
to print the eoMPleMentary close, etc, etc. 
This did work but had at lean one Major drawback. 
SLOWNESS! When several hundred letters need to 
be sent we Just didn't have tine to wait. 

The two prograMs presented in this article 
solved the problem. Their naves are POKE. SEN 
and GENERAL. PR!. 

The First, "0KE.5EN with STR!NG=B2 gets the 
letter Fro* disk and pokes it into RA* brte 
by byte. A stall printer driver routine is also 
included. 

GENERAL. PRT with STRINGS access the "ail 
List data File, prints the inside address, 
calls the Machine PrograM to print 
the letter and Finally prints the closing. 



Lines #2000 - 30S0 add a Carraige Return and Line 
c esd. T he end of the letter is signified by 
adding a control Z <$!A). Don't 'orget to 
add it or you will be printing a lona. long tiae. 

At this point Me have poked into PA* the 
printer driver rciuine and th; letter. The 
prograM GENERAL. 5 RT is now CHAINED. 

GENERAL PRINT uses strings of length 24 
which was the nuMber we used to store the data 
on our tail List. Several Mai! lists are in 
use and each us a satellite File called 
SWA?.3A T that gies with it. The ite»s stored 
here have to do with the nuMber oF records used, 
has it been sorted by ZIP code plus soMe other 
things not iaportant here. 

After setting a c ew variables ue tell Basic 
where our L'SER prograa will start (lines 40-48). 

The ForMat oF our Mail list record is as 
Follows! 



Hhen POKE. GEN is called a couple oF assuM- 
tions are Made. First, that SSB DCS and Com- 
puterware Basic (Uer. 7.0 or B.O) are being 
used. Second, a printer is on port 2 and is 
driven via an ACIA. 

PROGRAM DETAILS 

Lines #10-18 Finds the current end oF MeMory that 
Basic takes ($6300) and changes it to $5800. This 
reserves 4H oF MBNory to be used for the 
driver prograM and the letter. 
Line #!3 will take care of the re-allocation 
oF Menory via RUN. 



A$ = Sane 
8$ - #1 Addresss 
C$ - tl Address 
D$ - City and State 
A -. ZIP Code 
E$ = Salutation 
B= Category 



The Category is used during the building 
oF the Mai! list to indicate the profession 
of A$, i.e., 69 is all rID's that are left- 
handed with red hair and drive a 1955 fairlane 
Ford. (Very few!!) 
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we art planning to chanae the Salutation 
field fron a string to a nuieric in order 
to get about 15X tore naves en each dish. 

The subroutine called :n line #130 is pretty 
lues self-conented. In addition to 
sending the letter to everyone ue «r select 
only »r ZIP code or by CATEGORY but net both. 
It would be desirable to be able to send a letter 
to only those tf category = £9 who are in 
between ZIP codes 12345 and 23*56. Ue Just 
haven't been able to figure out the code! 
!*aybe soie snart 'SB Journal Reader can help us 
out. 

After selecting the people to 9«t the letter 
we loop through the three routines called by 
lines #200 - 2S9. Here we take calls to tne 
following i!?ree sub-routines. 

1. TO! lines #3000 - #3090 

:. MESSAGE: lines #2000 - 20900 

2. FRC*: lines #1000 - 1090 

After all letters are printed we reaeiioer 
ic restore the *h of RA* we toon froi BASIC 
May bacs in the beginning. 

One problti you aisht looK for if you elect 
to run these proarais is as follows. The 
ACIA driver prograi taKes 32 brtes. If your 
letter and driver prosra* along with the LF/CR 
are greater than 4h you will overwrite the DOS. Since 
our letters are very short; this has not been a 
problec for us. 

1 ai currently running a variable speed SHTPC 
f*P-2A with dual 8" SS5 disKs. D0SGB.4Z with 9AP» 
fron tOOOO to »7fFF and frou »A000 to »AFFF, 
a highly Modified C^-1024, AC-30 and a DEC LA-34 
coiPletes our systen. 



0001 
0002 
0003 
0004 
000? 
0006 
0008 
0009 
0010 
0012 
0014 
0016 
0018 
0030 
0032 
0034 
0099 
0100 



! POKE. GEN 

I VERSION 3 

I GENE E*BRY 7/10/79 

I THIS IS TRICKY! 

LET A:2GB::C0HPUTERHARE VER. 7.0 i B.O 

LET B=PEEK(A) 

!F 8=88 THEN 30:i THIS IS $58 

IF BO104 THEN A^AMIGOTO 121:104 = «6B 

!F 8=104 THEN 8=88:P0KE(A,B):RUN 

STRING' 82 

mns. 

LINE* 

■ 

I POKE HACHINE PGM. INTO RAH 



0101 . 

0110 LET A=22528::START OF RESERVED SPACE = »5B00 

0122 READ B 

0130 IF B<0 THEN 200 

0140 i>OKE( A,B) 

0145 LET A=A*1 

0150 GOTO 122 

0150 DA"A 206,89-42,134,32,198,12 

0162 DATA 141,20,90,93,38,250 

01G4 DATA 166,0,129,25,39,9 

016S DATA 1*1,8, B, 129, 10,39,233,32,241,57 

0168 DATA 55,246, 12B, 8,87, 87, 36,249, 183, 125,9 

0170 DATA 51,57 

0172 DATA -1 

0193 : 

0200 : WHICH LETTER TO SEND 

0201 : 

0210 INPUT "WHAT IS NAHE OF LETTER TO PRINT ',A* 

0220 INPUT "WHICH DISK CONTAINS THE LETTER \N 

0230 LET NOSTRUM 

0240 LET A»=N»+CHR»(5B)+A» 

0250 IF FC.« AI-0 THEN 3001 1 IT EXISTS 

02G0 PRINT A*J* LETTER HASN'T BEEN WRITTEN. • 

0270 INPUT "WANT TO CONTINUE <Y/N) \G* 

0272 IF SKVY' T HEN END 

0274 HOHE 

0280 GOTO 200 

0299 : 

0300 1 GET IT 

0301 : 

0310 DLH=OFF "PERHITS USE Of COHHAS - VER. B.O AND L'P 
0320 0°EN #1,A» 

0330 gosub iooo::stick IT 

0340 DL«!=GN 

0350 CLOSE #1 

0399 : 

0900 : 

0990 END HCYAIN GENERL.PRT 

0999 : 

1000 : HAVE A FEW GOOD POKES 

looi : 

1003 HOHE 
1005 PRINT 'THE 

1009 : 

1010 1 REISER 
ATION. 

ion : 

1020 READ #!,C* 

1022 IF STATUS #1=6 T HEN 1080 

103B PRINT C» 

1040 FOR X=l TO LEN(C») 

1042 LET D*=HID«(C*,X,1):D=ASC(D«) 

1044 POKEt A,D):A*A*1 

1046 NEXT X 

1050 GOSUB 3000::CRLF 

1060 GOTO 1020 

10B0 POKE( A,2G)::END OF LETTER - I1A =CONTSt_ Z 

1090 RETURN 

1099 : 

2999 ! 



ETTER HE ARE ABOUT TO SEND." 

A' STILL POINTS TO THE NEXT AVA1LA3LE LOC 
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3000 : ADD CR & Lf 0240 

3002 : 02*2 

3010 P0KE( A, 13) 0245 

3020 POKE< A+1,10) 0270 

3030 LET A^A+2 027* 

3090 RETURN 0276 

3099 : 027B 

0280 

0299 

000! : GENERL.PRT 0300 

0002 I 0301 

0003 : GENE E"!BRY B/30/75 03O5 
000* : 0310 
0010 STRING' 24 0312 
0012 LET T:2:L!NE-0:HQ!<E 03Z0 
0014 »R!NT "THIS PRINTS A LETTER." 0330 
001? DLf«=OFF IINPLTTODAY'S DATE ",G$:DLK*ON 0340 
001E INPUT "INSERT PROPER M A!L LIST IN DRIVE #3 AND PRESS 0900 
'RETURN' '.M 0990 
0020 OPEN #l,i: SWAP. DAT 0999 
0022 READ #1,N1,N2.N3.N*.N5,NS,N7,N8.NS,J$,K$,L* 1000 
0024 CLCSE #1 100! 
0030 OPEN #10,1 :HA!L. DAT 1010 
0039 : 1012 
00*0 : SET UP LOCATION »2B AND »29 C 0R THE MACHINE PG*. 1014 
0041 : 1026 
00*2 LET y=40:X=8B::*58 = 88 1020 
004* POKE< Y,X) 1030 
00*6 LET X*0 1040 
00*8 POKEl Y+l.X):: »0 = (RIGHT 7) 1050 
W50 LET J$="GENE E«SRY" 1090 
0052 LET K*=", ESQ." 1099 
0054 LET L*='R0UTE 1 9CX 15! B-l-A" 2000 
005B LET Mt="«ORR!SV!LLEr N.C. 27560' 200! 
0058 LET V*="VERY TRULY YOURS,' 2010 
0070 PRINT "DON'T FORGET TO SET THE 'TAB' ON THE PRINTER ( 2090 
!7 SPACES)." 2099 
OOBO INPUT "WHEN PRINTER !S READY PRESS 'RETURN' ',0$ 3000 

0099 : 300! 

0100 : HHO SHALL GET THIS flESSAGE 3003 
010! I 3005 
0105 HOKE 3010 
0110 PRINT "HERE ARE VNSI'PEOPLE ON THE SAIL LIST." 3020 
0112 PRINT 3O30 
0120 PRINT "YOU CAN ELECT TO:" 3040 
0130 GDSUB 4000: SELECTION CHART 3050 
0140 IF F<! THEN 300 3052 

0199 : 3054 

0200 : WIN 3060 

0201 : 3070 
0205 PRINT "HORKING IN RECORD # ", 3072 
0210 FOR X=! TO N3 3074 
0212 PRINT X? 3075 
0214 SET RECN0#10=X:G0SUB 9000 3080 
0220 IF A*=" THEN 280"N0 ONE IN SLOT 3082 
0222 IF F=! THEN 270: EVERYONE GETS IT 308* 
0230 IF F=3 THEN 2*0 3090 
0232 IF F=2 IF A<A! THEN 280 3099 
0234 IF F=2 IF A>A2 THEN 280 4000 
0236 GOTO 270 :: THEY GET A LETTER *00! 



IF f=3 If B<A! THEN 2B0 
IF e =3 If 3>A2 THEN 280 

: they get letter 

gosub 3000 :: to: 

gosub 2000: MESSAGE 

gosub iooo::fro*: 

skip #t,s::ge t read for next message 

NEXT X 

: RESTCRE BASIC 

GOTO 990 

CLOSE #!0 

LET A=2S8 

LET 3=?EE*(A) 

IF B06B THEN A = A* i: GOTO 320 

IF S=B8 THEN B=!04:P0KE(A,S) 

END 

: FRO?! 

LET H*4B 

print #t:?rint it 
print #t,tab(h):v$ 

SKIP #T.4 

print #t,takhj;j$;k$ 

PRINT #T,TAB(H);L* 
PRINT *T,TA3(H>;»** 
SKIP #T,4 
RETURN 

: PRINT MESSAGE 

LET Z=USER<4) 
RETURN 

: TO MHO?! 

PRINT #T 

PRINT fT,TAB(48);Gi::DATE 

PRINT IT 

LET H*!2 

PRINT IT,TAB(Hi;A$ 

print #t,tab<w;b$ 

IF C«='0" THEN 3070 
IF C»="0" THEN 3070 
IF C«=" THEN 3070 

print it,tab(mkc» 

print #t,tab<w;d*;" *;a 

SKIP IT, 2 

PRINT IT,TAB(H);E$ 

SKIP #T,2 

: print it.chr»(12)::for printers having *tdf' 
: IF ND tof then hust count lines 

RETURN 

: KAKE UP SP.ECIDN CHART 
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4010 
4012 
4014 

4016 
4020 
4022 
4030 
4040 
4050 
4052 
4054 
405G 
4058 
4060 
40G2 
4064 
4090 
409S 
5000 
900! 
9010 
90S0 
9099 



<»R!NT "!. SEND LETTER TO EVERYONE" 

PRINT "2. SEND TO THOSE HAVING CERTAIN 'ZIP' CODES" 

PRINT "3. SEND TO THOSE OF CERTAIN CATEGORIES" 

PRINT 

INPUT •"AXE SELECTION \F 

IF F<! P," BYE!": GOTO 4090 

IF F>3 P. "BYE "rGOTO 4090 

IF F*> THEN 4090 

IF F=S THEN 4060 

INPUT m mm» ZIP TO GET LETTER ".Al 

input •nw.mr. zip to get letter *xA2 

IF A2<A! THEN 4052 

GOTO 4090 

INPUT **iN!».Li* CATEGORY TO GET LETTER \A: 

INPUT "WttMJB CATEGORY TO GET LETTER \A2 

IF A2<A1 THEN 4060 

RETURN 



RCT 



GET #!0,A»,M,C*.D*.A,E*.& 
RETURN 



TSC SORT-MERGE (Review) 

Dale Pucken 
14753 Efldslay Turn 
VKioOUtdga. VA 22193 

One of Che most useful software 
packages available for 6800 users is the 



Consultants (TSC) 

It is a highly 

to your business 



Technical systems 
Sort/Merge package, 
recommended addition 
system. 

When Don Williams asked me if I would 
like to review it, I Jumped at the 
opportunity. I had been curious about its 
capabilities since the small 
advertisements announcing its availability 
did not go into great detail. 

If you were an advertising writer and 
had to come up with a campaign to sell the 
package to the general public, you could 
rightly borrow the famous, "Have It Your 
Way- " from the hamburger chain. The 
Sort/Merge package will do just about 
everything you could want. Once again, 
TSC hasn't missed a trick. This article 
will attempt to acquaint the reader with 
the package and show how easy it is to 
use. 

HARDWARE REQUIREMENTS. The package 
requires that the user have a disk system 
with the FLEX operating system and a 
minimum of 8K user memory starting at 
$0000. All input to the program comes from 
disk files. Output may be routed to 
another disk file, the terminal or a 
printer. 



DOCUMENTATION. It's outstanding. 
The manual states in the introduction that 
it was written with a non-computeriat in 
mind. I agree and would go as far as to 
say that your secretary will be able to 
use the system after reading the tutorial 
in the manual and practicing with the 
sample data files supplied on the system 
disk. Inside a week she should be able to 
make it spit out a list sorted to any 
degree of precision, in any format, that 
you can dream up. 

OVERVIEW. There are five command 
files, one system file and two sample data 
files on the disk supplied by TSC. 
SORT.CMD and MERGE. CMD prompt the user for 
all parameters needed by the system. 
PSORT.CMD AND PMERGE.CMD (the F stands for 
Parameter) both get their sort parameters 
off of a file which is created by SORT.CMD 
or MERGE.CMD. This really comes in handy 
when you want to sort a number of files 
over a period of time, once a month for 
instance. Using PSORT or PMERGE you only 
have to enter the parameters once. 

CSORT.CMD is a command line sort 
which allows you to enter the parameters 
on one line without prompting. This will 
appeal to people who understand the way 
the system works and enjoy feeling that 
they control their own destiny. 
SRTMRG.SYS is the actual Sort/Merge system 
file. It is called automatically by the 
command files after all parameters are set 
up. 

Finally, the sample data files are 
simply two lists of 10 names and phone 
numbers. The first file has only one field 
per record and is set up by column 
position. The second is set up with three 
fields per record; one each for last name, 
first name and phone number. The manual 
gives complete examples for working with 
both types of files. 

OPERATION. The best way to show how 
easy it is to use the package is to go 
through the set up procedure step by step. 
You'll soon discover that you don't need 
to know very much about sorting to use the 
package. 

You start by typing 
The default extension is 
the Sort or Merge command 
parameter it gives you 
options. You'll notice that one of the 
options has an asterisk "*" beside it. 
This option is the default and can be 
selected by simply typing a carriage 
return. The package is so well planned 



SORT NAMOFILE. 
TXT. Each time 
prompts for a 
a list of the 
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that you will find yourself hitting the 
carriage return key most of the time. 

After typing a banner on the 
terminal, the system asks the operator, 
"OUTPUT TO DISK (Y OR N*)?" If you want a 
sorted file on the disk, just type, "Y." 
If not, type "N" or hit return. 

The system then asks, "INTERMEDIATE 
WORK FILE DRIVE"!" You may type a drive 
number here, or hit return and let it 
default to the FLEX system drive* 

"FIXED OR VARIABLE LENGTH RECORDS (F 
OR V*)?" is the next prompt. You'll find 
that most of the files you will need to 
sort are variable so the default option 
will most likely be your choice. 

Other prompts ask you for an End of 
Record (EOR) character (the default is a 
carriage return or $0D) ; a field separator 
character; and if the output should come 
from the key, the input file, or some 
other source (the default is the input 
file). 

After this preliminary questioning, 
the system prompts the operator for the 
input keys. This step is the key to the 
sort. 

The SRTMRG.SYS uses the keys you 
specifiy here to sort the file. To 
simplify the concept lets assume that you 
have a file on your disk which contains a 
mailing list for your church newsletter. 
To qualify for a cheaper mail rate you may 
desire to supply the mailings to the post 
office already sorted by zip code. 

Let's assume that your file has the 
following fields, each separated by a 
comma or other field separator character: 
LAST, FIRST, INITIAL, TITLE, STREET, CITY, 
STATE, ZIP, PHONE. 

Because of the way you have organized 
your file, the zip code is in the eighth 
field. You oust give this information to 
the Sort/Merge package along with the 
starting and ending columns that you want 
to sort from within the field. Since you 
know the zip code is five characters long, 
you would simply type "(8)1-5" in response 
to the prompt. 

If you wanted to sort by LAST name, 
you would type (1)1-10. If you wanted to 
sort first by LAST name, then by FIRST 
name, you would type (1)1-10,(2)1-10. You 
may use as many keys in a sort as you 
please. 

To test the system, I quickly built a 
file containing names and addresses in the 
family telephone book and gave it a 
workout. I sorted the records in every 
combination I could think of and had them 



output in every format I could dream up. 
I did not experience any difficulty and 
the response always came immediately after 
I hit the return key. Another user told 
me that he often sorted files with over 
7,000 records and it only took the system 
two or three seconds to respond. 

After you have entered the input keys 
you will receive a prompt which asks for 
the output keys. If you simply hit the 
return key the system will default to the 
entire record. 

The output keys allow you to print 
the record in any format you prefer on the 
terminal, printer or even in a new disk 
file. 

For example if you wanted to sort the 
file mentioned above and print out a list 
with the first name followed by the last 
name, you would simply type: 
(2)1-*,$20,1-*,$20,(9)1-*, The $20 prints 
a space between the first and last names 
and between the last name and the phone 
number. Besides printing the character 
equal to a hexadecimal value, the system 
will also let you print a literal string 
on the screen. You do this by putting the 
string in single quotes like this: 
(2)1-*, $20,1-*, $20, 'and his phone number: 
' »(9)1-*. You may also tab over to a 
column position by typing a commercial at 
sign followed by the column position 
desired. 

It is an easy matter to tell the 
system to right or left justify different 
output keys, or to sort in either 
ascending or descending order. 

After entering the output keys you 
will be asked if you desire to specify 
further options. Most of the time you 
won't need them, but if you type yes to- 
this question you will be asked over a 
half-dozen additional questions. In the 
interest of keeping this article short, 
we'll let you be pleasantly surprised when 
you buy the package. Finally, you will be 
asked if you wish to save the parameter 
file on the disk. If you answer yes, 
there will be prompt for a file name. 
Then, the file will be saved. If you save 
this file, you will be able to do similar 
sorts on any file later using the 
PS0RT.CMD. It aorta immediately and does 
not ask all the questions. At this point 
you will be asked if you want to go ahead 
and sort, or exit the system. Most of the 
time you will want to sort, so you will 
type an S. After you type it, you're 
screen will start to fill with neatly 
sorted data, almost instanteously. 
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CONCLUSION. The TSC Sort/Merge 
package ia one of the flneat plecea of 
software available for the 6800 
microprocessor to date. For $75.00 you 
can do the same job performed by many of 
the so called data base management 
programs which run in BASIC. In fact, you 
can do more, do it faster, and with less 
memory overhead. This review has only 
touched the highlights. The package can 
do a lot more. 



SMITHBUG (A Review) 



Oavld Hanon 
Box 237C. Rl. 6 
Ringgold. QA 30736 



Not Just Your Average 6800 Bug 
Recently I had been organizing some of my 
favorite utility routines and was 
preparing to expand the command table in 
SWATBUG (my present monitor) to accomodate 
them. 

It was at that time that I was asked 
to evaluate the SMITHBUG monitor from Ed 
Smiths' Software Works for 68 Micro 
Journal. After becoming acquainted with 
the features of SMITHBUG, my efforts to 
expand SWATBUG came to a sudden halt. 
SMITHBUG contained all of my proposed 
additions for SWATBUG plus many more 
sophisticated features. 

SMITHBUG is supplied in either a 
SWATBUG or a SMARTBUG compatible version 
and requires a 6850 ACIA at $8004 (SWATBUG 
version) or $8008 (SMARTBUG version) . 

SMITHBUG resides at the top of memory 
($F800-$FFFF) and can be operated in 
conjunction with SWATBUG or SMARTBUG, or 
it may be used as a stand alone monitor. 
Also you must have an EFROM board in your 
system which will accept 2716 EPR0MS or 
the SMTP A-2 processor board can be used. 

If SMITHBUG is to be used with SWATBUG 
for example, SWATBUG will need to be 
copied into another 2716 EPROM and 
addressed at it's usual $E000 address. 
The reason for this is that full address 
decoding was not used for the monitor 
socket on the SWTP processor boards and 
SWATBUG is mirrored 8 places from $E000 
through $FFFF and this would cause double 
addressing. When using SMITHBUG at $F800 
and SWATBUG at $E000 on the A-2 processor 
board turn the HI-PROM switch off, the 
monitor switch off, and the 4K-8K switch 
on. 

Now let's get to the super features 
that SMITHBUG provides. "R" Register 
dump displays the values of all the 6800 
registers along with labels so you don't 
forget what order they are displayed in. 



Also the processor status register is 
shown bit by bit with each bit labeled. 
"D" Disassemble program starting at a 
specified address. The disassembler 
converts a machine language program to 
standard mnemonic symbols. The object 
address for relative branches and indexed 
operations are displayed as well as a 
print out of all ASCII characters. The 
disassembler is advanced to the next 
instruction by pressing the space bar. 
"T" Trace will single step programs 
starting at a specified address for 
debugging. The space bar is used to 
advance to the next instruction and a 
register dump is displayed for each 
instruction. Also a disassembled listing 
1b shown for each instruction which makes 
it easy to follow program flow. The trace 
function can be aborted at any time by 
pressing the return key. 

Since Trace will only step through 
RAM, jumps to addresses above $E000 are 
sensed and the single stepping will 
continue after program flow returns to the 
main program. "1" or "2" Inserts one or 
two software interrupts at specified 
addresses. When an SWI is encountered a 
register dump will normally follow. 
However, provision has been made for the 
user to vector to a user written 
breakpoint routine. If an SWI is 
encountered while in the Trace mode the 
Trace mode may be re-entered by typing 
"K". 

This covers the more complex features 
supported by SMITHBUG. The remainder of 
the features will only be discussed 
briefly. 

SMITHBUG has a memory dump feature 
which will dump $80 bytes on the CRT and 
interprets all ASCII characters on the 
line below the hex dump. 

Also there is a block move routine, 
and similar to SWATBUG, a find (one hex 
byte) routine, a memory examine and change 
routine, a GOTO user program command, and 
a jump to user program. 

Some other unique features of SMITHBUG 
Include an Insert command which will fill 
memory with a particular byte between 
specified addresses, a fill memory with 
ASCII characters from keyboard, command, 
and a terminal echo on/off command. 

A jump to $8020 is included to cold 
start the Smoke Signal Broadcasting 
BFD-68 disk system. I changed this jump 
to go to my SWATBUG disk boot. Also there 
is a jump to a disk operating system soft 
start entry point. I also changed this 
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jump to fit ray particular disk operating 
system. 

Another Jump vector can be utilized to 
send all output to a hard copy device 
driver routine. 

The only thing that Is missing Is a 
tape Input/output routine, but If you have 
a disk system or If you use SMITHBUG In 
conjunction with another monitor which 
supports tape this Is no problem. 

I found It convenient to change the 
code In SMITHBUG to Jump to SWATBUG with a 
"$" which is the SWATBUG prompt. I also 
added to the command table in SWATBUG so 
that I could Jump to SMITHBUG by typing 
'£' which is the SMITHBUG prompt. These 
changes are easy to make since the program 
resides in EPROM. 

I have found SMITHBUG to be a complete 
and very useful monitor combining many of 
the utilities which I used to have to load 
separately when I needed them. 



PATCH DISK SAVE & LOAD 
TSC TAPE BASIC 



Mickey E. Ferguson 

Box 708 

Trenton, Ga 30752 



In case you havn't tried it, TSC's 
new basic is really super... it is ultra 
fast, accurate, and full of helpful 
features. but my purpose is not to tell 
you all about tsc*s basic. it is for 
those of you who <like me) couldn't wait 
for the oisk version, but would rather 
save i load programs to fc from disk 
instead of tape... 

after you have aoo» this little 
patch to tsc's basic, and you want to save 
a program. you type save (just like 
always). you will then be asked for the 
file name. the default extension is .txt 
and the default drive is the one that has 
been asigned as the work drive. in both 
cases you may override the defaults by 
specifying your desires. the process is 
identical for loading programs, except 
that you enter by typing load while in 
BASIC. This patch should work equally well 

WITH EITHER MINlFLEX OR WITH FLEX, AND THE 
DIFFERENCES ARE GIVEN IN THE SOURCE. YOU 
WILL ONLY NEED TO «HANGE THE EQUATES FOR 
THE SYSTEM YOU ARE USING. 



WRITTING THIS PATCH WAS AIDED BY THE 
METHOD TSC USED TO IMPLEMENT THE TAPE SAVE 
AND LOAD ROUTINES. FOUR SUBROUTINE CALLS 
ARE USED, THESE AREt TINCH, TOUCH, TAPEON, 
and TAPEOFF. These subroutine calls are 

INTENDED BY TSC TO BE USED AS FOLLOWS i 
TINCH READ A CHARACTER FROM TAPE 

TOUCH Write a character to tape 
TAPEDN Turn tape on 
TAPEOFF Turn TAPE OFF 

However, we use the TINCH vector to call a 
routine to read a character from disk, 
and the touch vector is used to write a 
character to disk. the tapeon vector 
opens a file for read or write. finally, 
the tapeoff vectors to our close file 
subroutine. 

All of the subroutines are expected 
by basic to preserve the contents of the b 
and x registers. this is taken care of by 
the save and restor subroutines in our 
patch. error handling is provided through 
flex's rtperr subroutine and all open 
files are closed should any error occur. 

the open subroutine calls the save 
subroutine, attempts to find if it is 
supposed to be saving or loading, prompts 
for the file name, and optns the file. 

OPEN RETURNS TO BASIC THRU THE RESTOR 
SUBROUTINE. THE METHOD USED HERE TO 
DETERMINE WHERE THE CALL TO THE OPEN 
SUBROUTINE CAME FROM COULD PERHAPS BE 
USEFUL TO YOU IN OTHER PROGRAMS THAT YOU 
MAY WRITE. SO LETS LOOK AT IT IN A BIT OF 
DETAIL. YOU WILL NOTE THAT OPEN, AFTER 
PRESERVING THE X AND 8 REGISTERS, 
TRANSFERS THE STACK POINTER TO THE INDEX 
REGISTER. THIS POINTS THE INDEX REGISTER 
TO THE TOP OF THE STACK. THEN THE INDEX 
REGISTER IS LOADED, INDEXED. THIS PUTS 
THE ADORESS ON THE TOP OF THE STACK INTO 
THE INDEX REGISTER. AS YOU ARE PROBABLY 
AWARE, WHEN A SUBROUTINE IS CALLED, THE 
6800 PUSHES THE RETURN ADDRESS ONTO THE 
STACK. BY USING THE PROCEDURE JUST 
OUTLINED, THE RETURN ADDRESS IS PLACED IN 
THE INDEX REGISTER. IT DOES NOT DISTURB 
EITHER THE STACK OR THE STACK POINTER. IN 

TSC Tape BASIC there are two calls to the 

TAPEON SUBROUTINE, THEY ARE LOCATED AT 
$0719 IN BASIC'S SAVE ROUTINE AND AT S07B2 
IN BASIC'S LOAD ROUTINE. THE SUBROUTINE 
CALL AT S0719 RESULTS IN $07lC (THE 
ADDRESS OF THE INSTRUCTION FOLLOWING THE 
SUBROUTINE CALL. BEING PUSHED ONTO THE 

stack. Likewise, the call at S07B2 puts 
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ADDRESS S07B5 DM THE STACK. IF THE OPEN 
ROUTINE FINDS $07 lC ON THE TOP OF THE 
STACK, IT KNOWS THE CALL WAS FROM THE SAVE 
ROUTINE IN BASIC. AND FINDING S07B5 ON 
THE STACK MEANS THE CALL WAS FROM BASIC'S 
LOAD ROUTINE. ANYTHING ELSE ON THE STACK 
AT THIS POINT IS AN ERROR CONDITION, AND 
THE PATCH SIMPLY RETURNS CONTROL TO THE 
WARM START ENTRY OF BASIC. IF AN ERROR 
CONOITION IS DETERMINED TO EXIST THEN NO 
ATTEMPT WILL BE MADE TO OPEN, READ, OR 
WRITE TO A DISK FILE. 

The CLOSE subroutine first calls the save 

SUBROUTINE, THEN CHECKS TO S1E IF THE FILE 
IS OPEN OR NOT. IF THE FILE IS NOT OPEN, 
IT RETURNS TO BASIC THOROUGH RESTOR. IF 
THE FILE IS OPEN, IT IS CLOSED AND CONTROL 
IS RETURNED TO BASIC THROUGH RESTOR. 

THE READ SUBROUTINE READS A CHARACTER FROM 
THE FILE, THEN CHECKS TO SEE IF AN ERROR 
OCCURRED. IF NO ERROR CONDITION EXISTS, 
IT'S BACK TO BASIC THROUGH RESTOR. IF, 
HOWEVER, AN ERROR DID OCCUR | THE ERROR 
TYPE IS CHECKED TO SEE IF IS THE END OF 
THE FILE. WHEN AN END OF FILE ERROR IS 
FOUND, THE FILE IS CLOSED BEFORE RETURNING 
TO BASIC. IF THE ERROR WAS NOT AN END OF 
FILE, THEN READ CALLS THE ERROR ROUTINE TO 
REPORT THE ERROR. 



The WRITE subroutine works much like the 
READ subroutine except the character is 
written to the disk. Ano all errors are 
reported . 

it should be mentioned that the 
format used in the disk file is the same 
used by TSC Tape BASIC when saving to 
tape. This format is not compatable with 
any other basic (or editor) that i know 
about. Once you have assembled the patch, 
i would suggest you append the binary 
files basic and the patch together, thus 
causing the patch to be loaded 
automatically whenever you run basic. 

This patch is assembled for a 
beginning address of scooo and as a result 
you may need to assemble it elsewhere in 
memory. you could put it at s6f00 (for 
example) and set basic's et*> of memory 
indicator (at addresses $40-$41 ) to s6eff. 
with a little more work, it could be 
mofified to work with other disk operating 
systems. and could be used with j pc 
Products CFM/3 cassette operating system. 
Whether you are using FLEX or not, it 

SHOULD NOT BE TOO DIFFICULT WITH YOUR 
OPERATING SYSTEM. SO WHY NOT TRY IT? 



NAM 



TSC BASIC PATCH 



* PATCH TO ALLOW TSC TAPE BASIC 

* SAVE AND LOAD PROGRAMS TO DISK 

* WITH THE FLEX DOS 



* MICKEY E. FERGUSON, WA4KDC 





* SYSTEM EQUATES 

* 


AD03 


DOS 


EQU 


$AD03 


AD1E 


PSTRNG 


EQU 


SADIE 


AD1B 


INBUFF 


EQU 


$AD1B 


AD33 


SETEXT 


EQU 


$AD33 


AD2D 


GETFIL 


EQU 


$AD2D 


B403 


FMSCLS 


EQU 


$B403 


B406 


FMS 


EQU 


$B406 


AD3F 


RPTERR 


EQU 


$AD3F 


AD15 


INEEE 


EQU 


$AD15 


AD18 


0UTEEE 


EQU 


$AD18 


0103 


WARMS 


EQU 


$0103 


0001 


TXT 


EQU 


1 


0008 


EOF 


EQU 


8 


0001 


R0C0M 


EQU 


1 


0002 


WRC0M 


EQU 


2 


0004 


CLSC0M 


EQU 


4 



(IN MINIFLEX EQU $7103) 
IN MINIFLEX EQU $7118) 
(IN MINIFLEX EQU $7115) 
(IN MINIFLEX EQU $7120) 
(IN MINIFLEX EQU $7127) 
(IN MINIFLEX EQU $7803) 
(IN MINIFLEX EQU $7806) 
IN MINIFLEX EQU $713C) 
(IN MINIFLEX EQU $710F) 
(IN MINIFLEX EQU $7112) 
BASIC'S WARM START ENTRY 
TEXT EXTENSION VALUE 



FMS OPEN FOR READ COMMAND 
FMS OPEN FOR WRITE COMMAND 
FMS CLOSE FILE COMMAND 
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* SET EXIT TO RETURN TO FLEX 

* 



0106 


ORG 


$0106 


0106 7E AD 03 


JMP 


DOS 


0112 


ORG 


$112 


0112 7E CO 5F 


TINCH JMP 


READ 


0115 7E CO 73 


TOUCH JMP 


WRITE 


0118 7E CO 00 


TAP EON JMP 


OPEN 


01 IB 7E CO 4A 


TAPEOFF JMP 


CLOSE 



SET VECTORS IN BASIC 



* YOU MAY WISH TO LOCK OUT BASIC'S END OF 

* MEMORY {ADDRESSES $40+$41 ) AND 

* ORG AT SOME LOCATION IN THE LOWER 32K 



COOO 



ORG $C000 



OR WHEREVER HANDY 



* OPEN FILE FOR READ OR WRITE 

* 

* DETERMINES IF SAVE OR LOAD (S OR L) 

* AND ASKS FOR FILE NAME 

* DEFAULT EXTENSION IS .TXT 





COOO 


BD 


CO 


84 


OPEN 


JSR 


SAVE 


PRESERVE X & B REG 




C003 


30 








TSX 




POINT TO TOP OF STACK 




C004 


EE 


00 






LDX 


0»X 
#$071 C 


PUT ADDRESS FROM STACK IN X 




C006 


8C 


07 


1C 




CPX 


IS IT A SAVE? 




C009 


26 


05 






BNE 


0PEN1 






COOB 


86 


02 






LDA A 


#WRCOM 


FMS WRITE COMMAND 




COOD 


36 








PSH A 




SAVE COMMAND 




COOE 


20 


08 






BRA 


0PEN2 






C010 


8C 


07 


B5 


0PEN1 


CPX 


#$07B5 


IS IT A LOAD? 




C013 26 


32 






BNE 


ERR1 


SOMETHING WRONG BACK TO BASIC 




C015 


86 


01 






LOA A 


#R0C0M 


FMS READ COMMAND 




C017 


36 








PSH A 




SAVE COMMAND 




C018 


CE 


CO 


88 


0PEN2 


LDX 


#FILNAM 


GET FILENAME 




C01B 


BD 


AD 


IE 




JSR 


PSTRNG 






C01E 


BD 


AD 


IB 




JSR 


INBUFF 






C021 


CE 


CO 


9A 




LDX 


#FCB 


POINT TO FCB 




C024 


BD 


AD 


2D 




JSR 


GETFIL 


PUT FILENAME IN FCB 




C027 


25 


16 






BCS 


ERROR 






C029 


86 


01 






LOA A 


#TXT 


SET DEFAULT ,TXT EXTENSION 




C02B 


BD 


AD 


33 




JSR 


SETEXT 






C02E 


CE 


CO 


9A 




LOX 


#FCB 


POINT TO FCB 




C031 


32 








PUL A 




GET OPEN FILE COMMAND 




C032 


A7 


00 






STA A 


O.X 


PUT COMMAND IN FCB 




C034 


BD 


B4 


06 




JSR 


FMS 


GO OPEN FILE 




C037 


26 


06 






BNE 


ERROR 






C039 


86 


FF 






LDA A 


#$FF 


NO SPACE COMPRESSION 




C03B 


A7 


3B 






STA A 


59, X 






C030 


20 


3E 




* 


BRA 


RESTOR 


RESTORE X & B REG 












* UNIVERSAL ERROR ROUTINE 

if 




C03F 


BD 


AD 


3F 


ERROR 


JSR 


RPTERR 


REPORT ERROR 




C042 


BD 


B4 


03 




JSR 


FMSCLS 


CLOSE ALL OPEN FILES 




C045 


80 


36 






BSR 


RESTOR 






C047 


7E 


01 


03 


ERR1 

* 


JMP 


WARMS 


RETURN TO BASIC 
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* CLOSE 


FILE, 


IF OPEN 






C04A 


80 


38 




CLOSE 


BSR 


SAVE 






C04C 


CE 


CO 


9A 




LDX 


#FCB 


POINT TO FCB 




C04F 


E6 


02 






LDA B 


2,X 


GET FILE STATUS 




C051 


27 


2A 






BEQ 


RESTOR 


IF CLOSED WE'RE DONE 




C053 


CE 


CO 


9A 


CLOSEO 


LDX 


IFCB 


POINT TO FCB 




C056 


86 


04 






LOA A 


ICLSCOM 


CLOSE FILE COMMAND 




C058 


A7 


00 






STA A 


O.X 






C05A 


BO 


B4 


06 




JSR 


FMS 


GO CLOSE FILE 




C050 


20 


IE 




* 


BRA 


RESTOR 














* READ A BYTE 

* 


FROM FILE 






C05F BO 


23 




READ 


BSR 


SAVE 






C061 


CE 


CO 


9A 




LOX 


IFCB 


POINT TO FCB 




C064 


80 


B4 


06 




JSR 


FMS 


GO READ A CHARACTER 




C067 


26 


02 






BNE 


READ1 


BRANCH IF ERROR 




C069 


20 


12 






BRA 


RESTOR 






C06B 


A6 


01 




READ1 


LOA A 


l.x 


GET ERROR TYPE 




C06D 


81 


08 






CMP A 


IEOF 


END OF FILE? 




C06F 


27 


E2 






BEQ 


CLOSEO 


IF SO GO CLOSE FILE 




C071 


20 


CC 




* 


BRA 


ERROR 


OTHERWISE REPORT ERROR 












* WRITE A BYTE 

n 


: TO FILE 






C073 


80 


OF 




WRITE 


BSR 


SAVE 






C075 


CE 


CO 


9A 




LDX 


IFCB 


POINT TO FCB 




C078 


BD 


B4 


06 




JSR 


FMS 


GO WRITE A CHARACTER 




C07B 


26 


C2 




* 


BNE 


ERROR 


REPORT ANY ERRORS 












* RESTORE X & 

* 


B REGISTERS 




C07D 


FE 


CO 


97 


RESTOR 


LOX 


XTEMP 


RESTORE X REG 




C080 


F6 


CO 


99 




LOA B 


BTEMP 


RESTORE B REG 




C083 


39 






* 


RTS 




DONE 












* PRESERVE X t 


. B REGISTERS 




C084 


FF 


CO 


97 


SAVE 


STX 


XTEMP 


SAVE X REG 




C087 


F7 


CO 


99 




STA B 


BTEMP 


SAVE B REG 




C08A 


39 








RTS 








COBB 46 






FILNAM 


FCC 


/FILE NAME1 




C08C 


49 4C 














C08E 


45 


20 














C090 4E 


41 














C092 


40 


45 














C094 


3F 20 














C096 


04 








FCB 


4 






C097 








XTEMP 


RMB 


2 






C099 








BTEMP 


RMB 


1 






C09A 








FCB 


EQU 
END 


* 






NO ERROR(S) DETECTED 










SYMBOL 


TABLE 


: 










BTEMP 


C099 


CLOSE C04A CLOSEO C053 


CLSCOM 0004 DOS AD03 




EOF 


0008 


ERR1 C047 ERROR C03F 


FCB C09A FILNAM C08B 
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FMS B406 

OPEN COOO 

ROCOM OOOI 

SAVE C0B4 

TOUCH 0115 

XTEMP C097 



FMSCLS B403 
0PEN1 C010 
READ C05F 
SETEXT AD33 
TXT 0001 



GETFIL A020 
0PEN2 C01B 
READ1 C06B 
TAPEOF 011B 
WARMS 0103 



INBUFF AD1B 
OUTEEE AD1B 
RESTOR C07D 
TAPEON 011B 
WRCOH 0002 



INEEE AD15 
PSTRNG AD1E 
RPTERR AD3F 
TINCH 0112 
WRITE C073 



SWTPC BASIC TO FLEX 

Jim Thomas 
R 2 Box 76D 
Manor. TX 78653 

FLEX (TM) is a fairly powerful disk operating system 
and many of the commands are useful in handling data 
in a 6800 system. But have you ever wished you could 
use these DOS commands from BASIC? Well now you can. 
At least some of them. 

This program adds a new command to SWTPC Basic 
which passes command lines to FLEX. The commands appear 
in a Basic program exactly as you would enter them in 
FLEX and any DOS command that does not alter the memory 
space used by Basic may be executed. 

This feature may also be used to add "user" routines 
to Basic which are command files or to print special 
forms/headings from a disk file using the LIST command. 
Caution must be used since many FLEX commands use memory 
space which Basic uses and will wipe out Basic or its 
data when they are executed. Some that do this are EXEC, 
CAT and COPY. User written commands must reside in the 
DOS utility command space or some higher non-basic memory. 

In interfacing this program several memory locations 
may change between versions of Basic. These are 
pretty obvious by inspecting the program. The idea 
is to use some space after Basic to implement the 
program and insert the command DC into the command table 
SKSP starts LDAA 0,X? CMPA #$20 and BASBAK starts 
LDX #$2344; STX 5D; CLR 0010 in my system. This should 
help you find them if they have moved a few locations in 
the various versions. 

The patch is implemented by assembling the program 

and then APPENDing it to the end of Basic. This will waste 

a couple of sectors, but I prefer this method to SAVEing 

Basic with the patches installed. 

NAM BASIC TO DOS INTERFACE COMMAND "DC" 

OPT NOG 
************** 

* JIM THOMAS - JULY 79 * 
************** 

* THIS BASIC COMMAND PROVIDES A MEANS OF 

* EXECUTING DOS COMMANDS DIRECTLY FROM 
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* BASIC BASIC FEEDS THE COMMAND TO THE 

* DOS COMMAND BUFFER AND TURNS CONTROL OVER 

* TO DOS.. WHEN THE COMMAND IS FINISHED, 

* BASIC RESUMES CONTROL 

* 

* SYNTAX: (line#) DC (dos command line) 

* line # IS OPTIONAL (IMMEDIATE MODE) 

* DC is the BASIC COMMAND WORD (REQUIRED) 

* dos command line IS A COMMAND LINE TO 

* DOS EXACTLY AS IT WOULD BE 

* TYPED WHEN IN FLEX (AFTER +++) 

* (i.e. variables are not allowed) 
* 

* 

* EXAMPLE: 0100 DC LIST TEST 

* WILL LIST ON THE TERMINAL, THE FILE 

* "TEST. TXT" 

* NOTE: DOS COMMANDS THAT USE MEMORY FROM 

* BASIC'S AREA WILL NOT WORK.. 

* SOME OF THESE ARE: EXEC, CAT, COPY ETC. 

* SOME THAT WILL WORK ARE LIST,TTYSET 

* DELETE, RENAME, APPEND, P, ETC. 
******************** 

* 

* ON WITH THE PROGRAM 

* 

* BASIC ADDRESS LOCATIONS 

02FD TAPADD EQU $2FD TAPPEND ENTRY IN TABLE ## 

014E MEMST EQU $14E CONTAINS START OF DATA AREA 

0F52 TAPEND EQU $0F52 ADDR OF TAPPEND ROUTINE ## 

0B8C SKSP EQU $0B8C SKIP SPACES ## 

1079 BASBAK EQU $1079 RE-ENTER BASIC ## 

* ## = ADDRESSES THAT MAY CHANGE WITH 

* DIFFERENT VERSIONS OF BASIC 

* FLEX ADDRESS LOCATIONS 

7000 DOSBUF EQU $7000 DOS LINE BUFFER 

707F DBEND EQU $707F END OF DOS BUFF 

7094 BUFPNT EQU $7094 BUFFER POINTER 

7118 PSTRNG EQU $7118 PRINT STRING 

7142 DOCMND EQU $7142 EXECUTE DOS AS SUB 

* MAKE ROOM FOR THE DC ROUTINE AFTER BASIC 
014E ORG MEMST CHANGE START OF MEMORY 
014E 24 99 FDB FINI NEW START OF MEM 

* 

* TO IMPLEMENT, WE MUST FIND ROOM 

* IN THE COMMAND VERB TABLE.. SINCE 

* SWTPC HAS LEFT NO EXTRA ROOM, 

* I WILL CHANGE THE NAME OF TAPPEND 

* TO TA (I NEVER USE IT ANYWAY) 

* AND USE THE SPACE TO INSERT THE 

* DC COMMAND 

1 S ■ "W Micro Journal 



02FD 
02FD 54 
02FF 00 
0300 OF 52 
0302 44 

0304 00 

0305 24 44 



* BE SURE AND CHECK YOUR ADDRESS FOR TAPPEND 

* AND MEMEND (CONTENTS OF $14 E) THEY MAY 

* BE DIFFERENT 

IN TABLE 



ROUTINE ADR 



ORG 


TAPADD TAPPEND 


FCC 


'TA 1 CHANGE TO TA 


FCB 





FDB 


TAPEND TAPPEND 


FCC 


'DC' 


FCB 





FDB 


DC 



* OLD CONTENTS OF 

* START THE PATCH 



LOC $14E TELL U WHERE TO 



2442 










ORG 




$2442 


START OF PATCH 


2442 








TEMPX2 


RMB 




2 




2444 








DC 


EQU 




* 


START OF PROGRAM 


2444 


DE 


34 






LDX 




$34 


PICK UP COMMAND LINE 


2446 


BD 


0B 


8C 




JSR 




SKSP 


SKIP LEADING SPACES 


2449 


DF 


36 






STX 




$36 




244B 


CE 


70 


00 




LDX 




#DOSBUF 


LOAD DOS BUFFER 


244E 


FF 


70 


94 




STX 




BUFPNT 


INIT DOS POINTER 










* TRANSFER FROM BASIC TO 


DOS'S COMMAND 










* BUFFER AREA 






2451 


FF 


24 


42 


DC1 


STX 




TEMPX2 




2454 


DE 


36 






LDX 




$36 




2456 


A6 


00 






LDA 


A 


0,X 




2458 


08 








INX 








2459 


DF 


36 






STX 




$36 




245B 


FE 


24 


42 




LDX 




TEMPX2 




245E 


A7 


00 






STA 


A 


0,X 


MOVE TO COMMAND BUFF 


2460 


08 








INX 








2461 


BC 


70 


7F 




CPX 




DBEND 


END OF BUFFER? 


2464 


27 


11 






BEQ 




ERROR 


EXIT WITH ERROR 


2466 


4D 








TST 


A 




ARE WE DONE? 


2467 


26 


E8 






BNE 




DC1 


NO KEEP MOVING 


2469 


09 








DEX 






OVERWRITE NUL WITH CR 


246A 


86 


0D 






LDA 


A 


#$D 


CR 


246C 


A7 


00 






STA 


A 


0,X 




246E 


BD 


71 


42 




JSR 




DOCMND 


CALL DOS AS SUBROUTINE 


2471 


5D 








TST 


B 




ANY ERRORS? 


2472 


26 


03 






BNE 




ERROR 


YES, TELL OPR AND GO BASIC 


2474 


7E 


10 


79 




JMP 




BASBAK 


GO BACK TO BASICS 


2477 








ERROR 


EQU 




* 


ERROR ROUTINE 


2477 


CE 


24 


80 




LDX 




#ERST 


POINT TO ERROR STRING 


247A 


BD 


71 


18 




JSR 




PSTRNG 


PRINT IT 


247D 


7E 


01 


03 




JMP 




$0103 


BASIC WARMS 


2480 


45 






ERST 


FCC 




'ERROR IN 


DC COMMAND LINE' 


2498 


04 








FCB 




4 




2499 








FINI 


EQU 
END 




* 





NO ERROR (S) DETECTED 
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Shows and Things 

68 Micro Journal tries to make most of the 
computer st-cws. in june we exhibited (?) 
at the atlanta hamfest which had a large 
computer attendance. the service was 
excellent and exhibitors and exhibit goers 
alike were seemingly well pleased at the 
turnout and fine way everything came off. 
we met a lot of folks deeply involved with 
the 6800 and sold a goddly portion of 
subscriptions. 

all in all i feel that the atlanta show 
will prosper. they know hdw to put it on. 
Everyone I spoke to was well pleased with 

THE WAY THINGS WERE RUN. WE DEFINITELY 
PLAN ON BEING BACK NEXT YEAR. 




the characters are l to r mickey ferguson 
Assistant Editor, Joyce Williams (the 
moving power behind 68 micro journal) and 
Larry Williams Executive Editor. 




Billy Gage of Digital Research Corp. 
showing their new sso bus 16k memory board 
(to be available soon). many will 
remember billy as one of the original s&d 
Sales team. We wish Billy well in his 
entry to the s50 bus gang, 
a few months ago we made a one day 
'quickie' run down to the swfpc works, in 
San Antdnio, Texas. As many of our 
readers use swtpc computers and other 
products, we thought you might be 
interested in a few pictures of their 
plant. the entire operation is one of 
product development and plant expansion. 
One fact is very evident, they are geared 
for mass production in a big way. one 
gets the feeling, touring the works, that 
swfpc will be around for a long time. 

in the coming months we will picture 
tour other 6800/09 product maker's 
facilities, and give you a peek at their 
operations. 




L TO R YOURS TRULY AND MICKEY HASHING OVER 
THE CONTENTS OF 68 MICRO WITH A 6800 USER. 



L to R George Wentz (SWTPC advertising 
Director), Paris Cockinos (68 Micro Far 
East rep.) and Dan Meyer SWTPC President. 
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A CORNER OF THE MODERN SWTPC REPAIR AND 
SERVICE DEPARTMENT. 





ONE OF THE MANY PRODUCTION LINES PRODUCING 
6800 SWTPC PRODUCTS. 



ROW , UPON ROW , 

y/iDEO Terminals 

ADJUSTED. 



UPON ROW OF SWTPC CT-82 
BEING BURNED IN AND 





The cabinet shopi here SWTPC makes all 

THEIR CABINETS AND COMPUTER FURNITURE. 



THE TEAM OF NORM AND DENNIS, THE SWTPC 
SOFTWARE CODERS, HARD AT WORK, 
UNFORTUNATLY THE SCENT OF INCENSE BURNING 
CANNOT BE PASSED ALONG ON THE WRITTEN 
PAGE. HOWEVERi I DID DISCOVER A DEEP 
SECRET OF GOOD CODING, INCENSE WHIFFING. 



REPORT FROM JAPAN 



Taylor Jackson 
4-4-18 Kalass 
Fusllsawa, 251 Japan 

In Japan, basic has been around for 
several years now, and among hobbists 
Tiny basic in one version of another is 
probably the most widely used. 
Unfortunately there hasn't really been 
a good 6800 version around , that is 
until recently. ASCII magazine (Japanese) 
has recently published two great Tiny 
interpreters. 
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In July '78 "GAME" was released. This 
is an expanded version of VTL with some 
interesting bells and whistles (do, until- 
for next loops, arrays) it takes up about 
1.5K for the interpreter alone. With a 
monitor, save-load (load to any address) 
and string editor it goes up to about 2.5K. 
The main features of this interpreter are 
it's speed and stinginess with memory, 
(about 20-30%, less memory required than 
full keyword type interpreters.) 

Next in April '79 NAKAMOZU Tiny Basic 

(NTB) was released. This is the first 

Tiny interpreter written for a CRT based 

system to come out. 

The main features common to both GAME and 

NTB are: 

1 • Do until loops 

2. For next loops 

3. 1 dimension arrays 

4. Peak and poke commands 

5. Calls to link with machine 
language subroutines 

6. Decimal and Hex. can be used 
freely 

7. Real time input 

8. They are FAST 

Using the bench mark tests from 
kilobaud I came up with the following 
results: 

Teat 12 3 4 5 6 7 



Game 


1.3 3.5 7.5 8.5 10.5 18 


NTB 


.8 7.5 14 13 17 26 


Pittman 


a 37 61 62 83 280 


Tiny 




a: 


: no for next loops 


b: 


used counting loop to replace 




for-next 


c: 


no arrays 



23 

37 

c 



I ran these on a Hitachi 6800 @1MHZ 

As you can see the days of making a cup 
of coffee between input and response are 
gone. 

Game is the obvious winner in the speed 
race but this is due to using "system 
variables" rather than keywords. However 
this test doesn't really give a true 
Indication of NTB's speed. In actual 
applications (longer programs) NTB should 
perform much better. 

For example in the case of GO TO, or GOSUB, 
to a higher line number NTB will begin the 
search from the present line rather than 
from the beginning. 



Also searches through the statement and 
function tables are very time consuming. 
In the case of A=1+B+C+10*D , this would 
usually require 1 check of the STATEMENT 
table and 5 checks through the Function 
Table. In this type of operation each 
table has to be checked to the end. 

NTB will caryy out these searches only 
when necessary so there should be a noti- 
cible gain in speed on longer programs. 
(I found it about 2.5 times faster than 
the PALO ALTO Tiny on a friends 8080) 

The Do until and For Next loops also 
will allow a much cleaner program, giving 
a further increase in speed. 

Now let's look at the general charac- 
teristics. 

Interpreter number range type 

size 
GAME 1.5 K -3 2768A32767 integer 
NTB 3 K ti / .. .. 
Pittman 
Tiny 



2.5 K 



f J / IF 



Not so much difference in size. They 
are all well in the Tiny category. But 
if we look at the instruction sets for 
them the differences will show up. 

Pittman Tiny 

Commands Statements Functions Variables 

A - Z 



♦Clear 


♦End 


Run 


♦List 


♦GoTo 


USR 


♦Run 


♦GOSUB 

♦IF THEN 

♦INPUT 

♦LET 

♦PRINT 

♦REM 

♦RETURN 





single statement per line 



NTB 



Commands 


Statement 


♦AUTO 


DATE 


♦APPEND 


DO 


♦DEL 


UNTIL 


♦EXIT 


END 


♦LIST 


FOR -TO 


♦LOAD 


NEXT 


♦NEW 


STEP 


♦RUN 


GOSUB 


♦ SAVE 


GOTO 




IF 




LET 




INPUT 



s Graphic Statements 
♦COPY V-RAM topprinter 
♦CLR 
♦CURS 

♦NEG (Reverse back- 
ground +di splay) 
♦!w(x,y) turn bit xy on 



♦ lB(x,y) i. 



off 



*?R(x,y) reverse bit xy 

Graphic Functions 
|p(x,y) read bit x,y 
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off=0 
on =1 
char=lOO 



POKE 

PRINT 

REM 

RESTORE 

RET 

STOP 

THEN 



Functions 16Bit Functions Formating 



ABS AND 

GET$ OR 

KEY XOR 

MOD 

# (PEEK) 

READ 

RND 

SGN 

USER 

multiple statements O.K. 



USING 

TAB 

CHR$ 

HDF 

(4 digit hex) 

HDT 

(2 digit hex) 



GAME 

Commands 
or /n list(from n) 
jf=l run 
&=0 new 

&:0)=$FF open file* 
&:0)=$FO lock file* 
■» search end of file 
=n change program 
start* address 
*=n change ram end 
#n, old string, new 
string, edit line 

Functions 
' n Rnd(n) 

%(A/B) MOD(A.B) 
+n ABS(n) 

# Not 



Statements 
A=B Let(not written) 
#=100 Goto 100 
1=100 GoSub 100 
3 ret 

>=n user(N) 
;=(A=1) IF 

J=2,20 For J=2 to 20 
Next J-Step 2 @==J+2 
Do @ 

Until A=2 @=(A=2) 



GAME 

Input 
A=? input A 
A=$ input 

character 



Output 
? (n) =A output least n digits 
(leading supressed) 
of A 

output A (4 digits Hex 
output least signifi- 
gant byte of A 
(nex-2 digits) 
output ASCII character 
for least slgniflgant 
bit of A 
output n spaces 
CR LF 
output quoted string 



♦program pointers 

J\ EOF MARK J 

(=) 
(&) 

I PROGRAM |f 1 EOF 1 
(=) & 



??=A 
?$=A 



$=A 



.=A 
/ 
'STRING 



Cold start 

or after new command 

After input 



When EOF=$FF program can be written into 
When EOF $FF program cannot be written into 

♦Multiple programs may be loaded throughout 
available memory or run from programs in ROM 
When changing to a new program the starting 
address is set by inputting =start address 
and the EOF is found and set by ==. 
The new program is then ready to go this way 
multiple programs may be placed throughout 
the memory, (no linkage available though) 

You can see from this that GAME has some 
interesting features and NTB supports all 
of the PALO ALTO TINY instructions (ab- 
breviations are the same also) plus having 
many additional features. 

The graphic commands in NTB are quite 
useful but also graphics and special symbols 
may be mixed freely with 

This is done by shlfing the keyboard into a 
"graphic"mode thru software. 
At present we are using a cyclic 4 stage 
shlft;-ASCII JIS (Japanese characters), 
Graphic, Control Code, (no control code on 
our pocket keyboard). This, of course, can 
be easily rewritten to meet your own needs. 
In the graphic mode the lower 4 bits are 
output directly to the screen as 

rsrr 



El- 



This allows interesting graphics to be 

mixed with text. 

The video ram we are using at present is 

very similar to the TRS-80 video board, and 

allows this type of limited graphics. 

The graphic commands will have to be adapted 

to your own video board but this should be 

easy to accomplish. 

I/O Routines 

Both GAME and NTB are using MIKBUG type 
I/O. The I/O parameters are handled in ACCA . 
The other registers should be preserved. 
They can be run on a teletype but NTB should 
really be run on a video system capable of 
graphics, to utilize it fully. 
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SWITCH-INDICATOR CONTROLS 


External Switches 


Power On Off 




Select-Deselect 




Line Feed 


Internal Selector 




Switches 


Print Direction ( .+. or-*) 




SO/SI or SO only 




Non-Auto LF or Auto 




LF onCR code 




Non-Printing or Printing 




on LF, VT, FF codes 


Internal Switches 


Paper Empty 




Case Cover Lock 



p» rc 



FEATURES 
Standard 

Bidirectional Printing 
Character Set of 96 Symbols 
Tractor Feed 
One Line Internal Buffer 
80 Character Print Line 
Double Size Character Set 
Low Cost 



SPECIFICATIONS 



Physical 

Height 
Width 
Depth 
Weight 

Environmental 

Temperature 

Relative Humidity 



7.3 inches 

17.7 inches 

14.8 inches 
22 pounds 

-25°-60°C (storage) 
1Q0-35°C (operating) 
0-90% (storage) 
10-80% (operating) 



Power Requirements 



Voltage 
Watts 



115VAC±10%, 60Hz 
100W operating, 
7W stand-by 



CHARACTERISTICS 


8300 




Print Features 


1 25 characters per second 




60 lines per minute 




8.0 inches printable width 




10 columns per inch (normal width) 




S columns per inch (double 




width) 




1/6 inch line spacing 


Form Feed 


Pin Feed method 




10 lines per second (slew 




speed) 




Loading from either 




bottom or rear 


Forms 


Pin-feed type 




4.5 inch— 9.5 inch inclu- 




ding sprocket margins 




0.013 inch maximum 




form thickness 


Interface 


8 bit parallel method 


Control Signals 


ACKNOWLEDGE, BUSY, 




SELECT, DATA STROBE, 




INPUT PRIME, FAULT, IN- 




PUT BUSY, PAPER EMPTY 


Control Codes 


CR, LF, VT, FF, CAN, SO, 


(ASCII) 


SI. DC1, DC3, GS, RS, US 


Character Format 


96 characters ASCII 




5x7 dot-matrix 




Impact printed in normal 




width and double width 


Character Buffer 


1 line (80 characters in 




normal width, 40 charac- 




ters in double width 


Print Head 




Life Expectancy 


1 00 x 10* characters 
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654Q SERIAL PRINTER 




SWITCH-INDICATOR CONTROLS 

On/Ott, On/OH Indicator, Run/Hold, Home Paper, 
Forms Override. Space Paper. Vertical Positioning. 

Data Communications: Local/Remote, Hall/Full/ 
Echoplex. 110/300/1200 baud, Ready Indicator, Aulo 
Answer, 





SPECIFICATIONS 


Physical 




Height 


10 inches 


Width 


27 inches 


Depth 


19 inches 


Weight 


85 pounds 


Environmental 




Temperature 


32-1O4°F.0-40°C 


Relative Humidity 


10-90% 


Power Requirements 


Voltage 


115 + 10% AC. 60Hz 


Phase 


Single 


Watts 


150 


CHARACTERISTICS 


6540 




Print Method 


Serial/Impact 


Character Structure 


9x 7 Dot Matrix (.105" 




high x. 075" wide) 


Printing Speeds 




Print Rate 


120 characters per second 


Tab/Carriage Return 


36 inches per second 


Eauivalent Rate 


165 characters per second 




unidirectional 


Line Feed 


4.5 inches per second 


Data Input 


Serial 


Code 


USASCII 


Format 




Print Positions per Line 132 


Horizontal Spacing 


10 characters per inch 


Vertical Spacing 


6 lines per inch 


Forms 




Dimensions 


2!4" to 15" width 


Type 


Continuous, sprocket fed 


Number o( Farts 


Original and 4 carbons 


Inking System 


Cartridge ribbon 


Transmission Rate 


110,300. 1200 baud- 




Operator selectable 


Interface 


RS 232-C o r 20MA current 




loop 


Type 


Asynchronous 








SOUTHWEST TECHNICAL PRODUCTS CORPORATION 

219 W. Rhapsody 

San Antonio, Texas 78216 (512) 344 0241 
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Software for GAME 



adaack , »l AS»t wnSaard af In tnli 



GAME 

Save Load Routine 

This routine will allow you to load 
GAME programs Into any open area In 
the available memory. 

Assembler 

A 2 pass assembler written In GAME 

Dlassembler 

To list GAME programs Into a more 
readable form e.g. #=100 becomes 
GO TO 100 

String Editor 

Rather than retype a whole line 
the editor will replace all occurences 
of the old string with the new one In 
the line. 

Also GAME 3.6 Is out now. This Is a 
4 K. Graphic Version of GAME. It has the 
same Instruction set as GAME, and 
features 34 graphic commands. However the 
graphic section was written for The Hitachi 
6800 micro and video board. So, a lot of 
rewriting would be necessary to get It up 
and running. 

In the near future ASCII plans to 
release a GAME compiler and a NTB compiler. 
(GAME 8080 Is out In compiler form now so 
the 6800 version should follow soon.) 
Also a screen editor for NTB has been 
promised. I'll let you know about them 
as they are released . 



LETTERS 



r.o.aox not 

PORT 1IAKL 
T1XM 7M70 
JUL* 7 1F7T 



ION UULIMI 

'♦•' MICRO JOURNAL 

MIX 10* IN 17141 



Caaaraiulattaaa •■ lha '*• *tC«fl JOURNAL', y.u fvy» ara 

daln« ■ aaadarful and laif aaadad Jaa af *«lll»t tha «ard 

•Ml ta tha v««rt af all ♦ *•* odvlMd ayatana. It la tha 

Tint chaaca that naat af ui hivi ha* te «ai a 'laak* at 



99m far ihm Infarfaatlaa aa aaa of vawr •^vtrlliari, 
•ftar a la»a Malay 1 dactdad !• chaaaa i«ir la FLla-J **4 
■taadail a 14C aaard ta aut It an, aflat l*akl»« aad raadl*t 
all I cavld flM aa lha aatrdi availtaala far ay §utpc van I 
ocl«U ta lat It trmn OlHlI. 1 callad tha* aa July 3 IM 
tallad la l«k rnllUM, I 1*14 hi* that I h*l rmm4 thair 94 
la '♦•' HUM J0URN41 and wanlad th»« la ahia m a IAN RAN 
Mar*, ttfe t«ld ■» thai lhay «tri ruaalaa. hattift* btciuii af 
thtir ••VtAlAtad. la tha '♦•' NICRR JOURNAL • feul lhay would 
ahia >■ aaaa ai lhay caald. Inpactl*t a lanf aaiay aad 
aa*ar Ui»| A f Jvit ahan I uauld aa ahia la *»»*ct iritynaM, 
f ntUH a*«f> fdr a a»r»al li«t »«*L law can Uitln* ay 
*vaar||a until fey rttura nail 1 aai »tlf*4 thai ">»' bca-tf 
aai ai tht aura la rack aad rauld aa aff aa 7/14 aed wavld 
aa iMppad ai iaaa aa 11 Mki taatad"* alanad /tlchard Dan/ 



If IM* It i« *x**»l* af tn« aay thay 
thair cvaparty* lhay ara faint ta aa an 
■ ak« it. 



26 



aalna te run 
r tha oaai thai. 



K#ac up Ifi* -tee* work, ihara ara a lot af paop)« Ilka a* 
that daat hava a lacal aanautar atara, ir ntbar habbylat'a 
la «ark with, aad naad a cantact vlth tha autaida irarld ta 
lair w» alth lhair habty. 

Vary truly yawn 
A 



5240 S. W. Dosch Rd. , 
Portland, Oregon 972)91 

June 20, 1979 



Don Williams, Editor 
'68* Micro Journal 
3(918 Hamlll Rd. , 
Hlxson, Tennessee 37343 



Dear Don: 



Congratulations to Mickey Ferguson 
on his very well -written article and 
program Basic Renumbering 1n the June 
Issue of SsMJ. The well-annotated 
source code was a joy to read. 

I would, however, suggest de-fus- 
ing the bomb 1n the FNDLIN routine, 
which Mickey warned about in the text. 
The patches suggested here may make the 
program bomb, but at least the source 
file will be preserved 1n usable form, 
and normal debugging procedures can be 
used to fix any resulting problems. 

(a) For any GOSUB or GOTO calling 
for a non-existent line number w1 th1 n 
the file range, assign the next higher 
valid number. Line numbers are always 
1n ascending sequence 1n the file, so 
1t takes only a minor code-change to do 
this. 

(b) For line numbers beyond the 
file range, assign Line #9599 to any 
unflndable GOTO or GOSUB. After re- 
numbering, there will be no such number 
and BASIC will tell the user all about 
1t later. 

Mickey's code 1s pretty tight, but 
I found a way to shoehorn the extra two 
bytes Into the same space (changing his 



"do while" to a "do until" 



safe. 



since we are already assured that the 
line-number table has at least one en- 
try). 
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The "9999" entries will typically 
be generated when a programmer tries to 
re-number a partially-entered program 
with unresolved forward references. 
These lines will have to be fixed man- 
ually — but then, they probably would 
have to be fixed anyway. Under typical 
circumstances, the renumbering will 
never be done until the whole program 
1s entered. 

Your magazine really hits the spot 
for this large but somewhat neglected 
tribe of 6800 users. Hope you can keep 
up the good flow of Information and 
advertising for a long time to come. 
It's really an advantage to be able 

PAGE 001 RENUMPAT 



to have 6800 and SS-50-compat1ble 
hardware and software ads all 1n one 
place, and not have to hunt for them 
through the myriad S-100 ads In the 
other mags. 



Yours very truly, 
Geo£*rey-A. Gass 



Encl. 
c: Mickey Ferguson 
Trenton, GA 30752 






00019 




NAM 


RENUMPAT 


Patch to Ferguson's RENUMBER 




00020 




OPT 


O.S.NOG 






00040 




*Patch to ass 


1gn next 


valid line number 




00050 




*when GOTO or 


GOSUB calls an Invalid line; 




00060 




*ass1gn 9999 


1f called 


line 1s beyond file. 




00080 




*Geoffrey A. 


Gass 


June 20, 1979 




00100 




*External References 






00120 


002A 


NEXTBA EQU 


S2A 






00130 


C2C1 


TEMPI EQU 


$C2C1 






00140 


C2C5 


TEMP3 EQU 


SC2C5 






00160 C18B 




ORG 


$C18B 






00180 




*FNDLIN searches table 


for Line # stored at 




00190 




*TEMP1; puts 


new numbe 


r Into TEMPI (BCD). 




00210 C18B DE 2A 


FNDLIN LDX 


NEXTBA 


Start of table 




00220 C18D A6 00 


FNDLN1 LDA A 


0,X 


Line # 1n table 




00230 C18F Bl C2C1 


CMP A 


TEMPI 


Line # - operand 




00240 C192 


27 10 


BEQ 


FNDLN2 


MSB's equal? Check LSB's 




00250 C194 


24 15 


BCC 


FNDLN5 


Line # greater? Use 1t. 




00260 CI 96 08 


FNDLN4 INX 




Operand greater than Line # 




00270 C197 08 


INX 




Step to next Line # 




00280 C198 08 


INX 




At least 1 entry guaranteed 




00290 C199 


08 


INX 




by earlier check. 




00300 C19A BC C2C5 


CPX 


TEMP3 


To end of 11st? 




00310 C19D 


26 EE 


BNE 


FNDLN1 


If not, keep going. 




00320 C19F CE 9999 


LDX 


#$9999 


Operand beyond file. 




00330 C1A2 20 09 


BRA 


FNDLN6 






00340 C1A4 


E6 01 


FNDLN2 LDA B 


i,x 


Get LSB 




00350 C1A6 Fl C2C2 


CMP B 


TEMP1+1 


Line # - operand 




00360 C1A9 25 EB 


BCS 


FNDLN4 


Operand greater? Next Line #. 




00370 C1AB 


EE 02 


FNDLN5 LDX 


2,X 


At or beyond match 




00380 C1AD FF C2C1 


FNDLN6 STX 


TEMPI 


New operand (1n BCD) 




00400 




END 




FNDLIN 
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NEXTBA 


002A 


TEMPI 


C2C1 


TEMP 3 


C2C5 


FNDLIN 


C18B 


FNDLN1 


C18D 


FHDLN4 


C196 


FNDLN2 


C1A4 


FNDLN5 


C1AB 


FNDLN6 


C1AD 



TOTAL ERRORS 00000 
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SPHERE STILL HERE? 
"Print Using" for CSS Basic 



Jgfl Brownslgln 
2 Tor Ro«d 
Wappingar*, NY 12590 



Thle epaoe toll! b» u««d for the benefit of 6600 Ueere who may not uae 
a MtkbuQ (Tm) etyle monitor or may have a home brew eyetem configuration. 

Perhape you may remember a oompany oalled "SPHERE" whloh went out o f 
buelneee a few yeare ago. Not to worry. Sphere ueere formed an Inter- 
national ueere group to fill the void. We have a hardware repair eervloe, 
a bi-monthly newsletter and a fair amount of software. One of our mem- 
be re purohaeed the Sphere bankruptoy Inventory eo we have available new 
computers ae well ae moet parte, boarde (lSDollare and up ) and manuale. 
We weloome any ueere who may not heard of ue ae well ae other computer 
hobbylete. 

Sphere ueere have edltore, assemblers, linking loadere for oaeeette 
and dlek, Fortran, Forth, Lisp, PL/ft In addition to the following Baslo 
Interpreterei Mloroeoft, SWTP, Programma, MSI and CSS, We have Cheee and 
other game programs up and running also. 

My Intereet In Improving our Baslo has led me to work with OSS whloh 
rune without problems and le eaelly enhanoed. The following addltlone 
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are up on my ay at em t DELETE, EDIT,' PRINT USINO, CHAIN, CALL, INKEY, 
PRETTY PRINT, IF THEN ELSE, ON ERROR GOTO, REALISTIC BACKSPACE, EXPANDED 
COMMAND TABLE, BINARY CASSETTE FILES for PROGRAMS and DATA, DISK SAVE, 
LOAD and APPEND for ICON 8" DISK, DISK DATA FILES. 

Yet to be implemented aret maohtne language (fast) aort, MAT PRINT, 
MAT READ, LINPUT, PLOT, SIZE and RENUMBER. 

Below la an example of my MOD to permit prettyprlntlng with CSS, The 
MOD la unusual In that It merely requtrea a new command In the table and 
nothing elae. The entry will be 2A 00 019A and oould point to any looa- 
tton holding a 39. We have created a new hind of REM statement with the 
name of asterisk. Thte new REM allowe colons to vector for multiple 
statements per line. Note that some of the lines have two aaterteka 
because If the ftret oharaoter after the REM la a apaoe Baeto will shift 
all text to the left( prohibiting the prettyprlntlng)* Labels oan be 
plaoed after the aaterteka allowing oommenta within a line Inatead of 
on a separate one. 



0010 


* 


PROGRAM TO SORT PihST N POSITIVE 1 NTtGf-Hii 


0020 


♦ 


FOR 


A INkUT VALUKS CF N (N = 100) 


UJU 


* 






0040 


* 


* 


:Lhl S«G 


OOSU 


* 


+ 


; INPUT A 


060 


* 






• 070 


* 


* 


:for 1 a 1 TO A 


OOttO 


* 


* 


t INPUT W 


oo yo 


* 


* 


IKOK J « 1 10 N 


o too 


* 


* 


:LET S = 5 ♦ J 


1 10 


* 


* 


JNKX1 J 


1120 


* 


* 


IPK1N1" SUM OK FIRST "i N» "INTEGERS 


0130 


* 


* 


*NE/T 1 


140 


» 






IbO 


* 






160 


♦ 


END 





IS 



PRINT USINO FOR CSS BASIC (version 4.0) 

Jeff Brownstetn 
2 Tor Road 
Wapptngers, N.Y. 

Various Bastos handle thta function differently and with a wide range 
of featured. Thta Implementation la very uaeful but oannot Include every 
possible syntax. 

One sets up an IMAGE line, for Instance/ 10 1 /GET ##. ## """ 
The Image line la really a REM In dtagutae. It la allowed by entering 
Into your oommand table 3A 00 12FD. Now what la that alaah after the co- 
lon? You may have noticed that If the ftrat oharaoter of a REM la a 
apaoe, Basto ahtfta all text to the left. Our Image line oannot toler- 
ate thta ao the ftrat oharaoter muat be aomethtng elae. I have made the 
program ohange slashes to spaces on exeoutlon ao you oan repreaent apa- 
oes with slashes In the IMAGE line always. In other worda If the ftrat 
charaoter la to be a apaoe a alaah muat be uaed In that alot. 

The word GET la a literal. Literal oharaoter* are printed aa la (ex- 
cept for # and '). 
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The representation ##. ## to a numerlo or evaluated numerto expression. 
Print Using will handle X, SGN(X), ABS(X), ASO(X) eto. The number of # « 
to the left of the deotmal point will govern how many plaoea are to be 
printed. Warnlngt Baelo will print a apaoe after your numeric bo you 
might aa well allow for It tn the Image line. If, oooastonally, the 
apace muat be auppreaeed Juat ohange the number to a atrtng variable. 
The format ###. will give you dlglta aa prevtouely defined In your pro- 
gram. To get Integers, plaoe INT(X) In the Image line. 

Apoatrophee Indloate atrlnga or atrtng expressions. Valid aret A$, 
NID$(A$,1,3), "ABCDEr", VAL(A$) eto. If your atrtng la too ahort tt will 
be padded on the right with epaoes; If too long It will be trunoated (all) 
aooordlng to how many apoatrophee are used). 

Bealdee the Image line, the program muat haee a USING line to epeotfy 
the vartablee or expreaetona to be uaed. I have plaoed USING In the com- 
mand table. The name PRINT USING waa long and aeemed to get oonfuaed 
with the oommand PRINT. The USING line might look llket USING 10;A;B$ 
or USING 10; INT(A)} B$ or If not at the oontrol port USING #7,10;A;B$ . 
The oommand table entry might look like 55 53 49 4E 47 00 2C2E where 
2C2E la the ftrat byte of my program after the temporary reserved lo- 
oattona. 

It would be poeetble to add my patohea to SWTP If RIGHT JUSTIFY la 
ftrat added. Aa a matter of faot I did Juat that to MSI Baelo. Aleo 
aome ueera of CSS may have altghtly different veretona. Juet eend me 
a tape or Hating and I will advtae you of the ohangee for your version. 

The quaatton of apeed always oomea up when dtaoueetng Baatc. A frtand 
who run 8 Mloroaoft on an Altatr aaya that hta PRINT USING la very alow. 
To teat thta vereton, I ran one thousand prtnte and oompared to the aame 
number of PRINT USINGe . The elapsed time wae almost tdenttoal. 

A limitation of thte program is the dtfftouity in Imbedding a oomma 
tn a number let $1,024.99 . One ftret should ohange the number to a 
string to easily Imbed, Another way is shewn tn Gardner "A Companion 
to Robert H. Uttenoyk*e Baste Interpreters" pp. 45 . Another limitation 
is the Inability to aooept the Image from a string Instead of a line. 
Write for details on extending the oommand table for thirty new ones. 

800 310055 1 *PR1NT USING FOR 

803 310043 2 * CSS BASIC VER 4.0 

8 06 3 ORG $2 100 

2 100 4 POINT EQU $2C 

2 100 5 STACK EQU S3A 

2 100 6 DIG EQU $58 

2 100 7 BTEMP1 EQU $76 

2 100 8 BTEMP2 ECU $8 2 

2 100 9 JUST EQU S9B 

2 100 00 10 DIGITS DS 1 

2 101 00 11 RoUST DS 1 

2 102 0000 12 TEMPI DS 2 

2 104 0000 13 TEMP2 DS 2 

2 106 00 14 APOST DS 1 

2 107 15 ORG $2107 

2 107 9658 16 LDAA DIG SAVE DIGITS VAL 

2 109 B72 100 17 STAA DIGITS STORE IT 

2 IOC 969B 18 LDAA JUST SAVE RJUST 

2 10E B72 101 19 STAA RJUST 

2 111 8639 20 LDAA -$39 

2113 B71176 21 STAA $1176 1 VAR AT TIME 

2 116 BD109A 22 OSR $109A GET PORT 

2 119 DE2C 23 LDX POINT FIND IMAGE LIN 

2 1 IB BD096E 24 JSR $096E 

2 HE BD0933 25 JSR $0933 
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2 121 


2405 


26 




BCC NOERR 


' 


2 123 


C607 


27 




LDAB -$07 




2 125 


7E0B5A 


26 




JMP 40B5A 




2 128 


08 


29 


NOERR 


I NX 




2 129 


06 


30 




1NX 




2 12A 


06 


31 




I NX 




2 12B 


06 


32 




I NX 




2 12C 


06 


33 


TIM 


I NX 




2 12D 


A600 


34 


READ 


LDAA 0,X END IF IMAGE? 




2 12F 


4D 


35 




TSTA 




2 130 


2615 


36 




BNE SPAC 




2132 


666 1 


37 


RESTOR 


LDAA = $8 1 RSTOR P01NTRS 




2 134 


B7 1 176 


36 




STAA SI 176 




2 137 


B62 1 00 


39 




LDAA DIGITS 




2 13A 


9758 


40 




STAA DIG 




2 13C 


B62 101 


41 




LDAA RJUST 




2 13F 


979B 


42 




STAA OUST 




2 141 


BD1UA 


43 




JSR SI 1 1A CONTINUE 




2 144 


7E12FD 


44 




JMP S12FD BASIC 




2 147 


812F 


45 


SPAC 


CMPA «S2F 




2 149 


2607 


46 




BNE KPL 




2 14B 


8620 


47 




LDAA -$20 LOAD SPACE 




2 14D 


BD01F1 


48 


OUT 


JSR S01F1 




2 ISO 


20DA 


49 


LOOK 


BRA TIM 




2 1 52 


8127 


50 


KPL 


CMPA =$27 TST FOR APOST 




2 154 


2706 


51 




BEQ HMA TO COUNT APOSTS 




2 156 


8123 


52 




CMPA =$23 TST FOR NUKBR 




2 158 


2757 


53 




BEQ NUM 




2 15A 


20F1 


54 




BRA OUT OUTPT LITERAL 




2 15C 


7F2106 


55 


HMA 


CLR APOST 




2 15F 


06 


56 


LOOP 


I NX 




2 160 


7C2106 


57 




INC APOST 




2 163 


A600 


56 




LDAA 0*X 




2 165 


6127 


59 




CMPA »S27 




2 167 


27F6 


60 




BEQ LOOP 




2 169 


FF2102 


61 




STX TEMPI 




2 16C 


6D6F 


62 




BSR FIND FIND i OF PU 




2 16E 


DE82 


63 




LDX BTEMP2 




2 170 


DF76 


64 




STX BTEMP1 




2 172 


BD1731 


65 




JSR $1731 EVAL STRING 




2175 


9F3A 


66 




STS STACK 




2 177 


9E62 


67 




LDS BTEMP2 




2 179 


34 


66 




DES 




2 17A 


32 


69 




PULA 




2 17B 


BD01F1 


70 




JSR $0 1F1 OUTPT STR CHR 




2 17E 


32 


71 


PUL2 


PULA 




2 17F 


4D 


72 




TSTA 




2 160 


26 16 


73 




BNE L00P1 




2 162 


7A2106 


74 




DEC APOST 




2 165 


270A 


75 




BEQ RST 




2 167 


8620 


76 


SPA 


LDAA -$20 




2 169 


BD01F1 


77 




JSR S0 1F1 




2 16C 


7A2 106 


78 




DEC APOST 




2 18F 


26F6 


79 




BNE SPA 




2 191 


9E3A 


60 


RST 


LDS STACK 




2 193 


FE2 102 


61 


RST1 


LDX TEMPI 




2 196 


2095 


82 




BRA READ 
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2 198 


7A2 106 


83 


L00P1 


DEC APOST 


2 19B 


2705 


64 




BEQ L00P2 


2 19D 


BD01F1 


65 




JSR iOlFl OUTPT STR CHR 


2 1A0 


20DC 


66 




BRA HJL2 


2 1A2 


20EF 


87 


L00P2 


BRA RST1 


2 1A4 


FF2102 


66 


NUMB 


STX TEMPI PROCESS NUMBER 


2 1A7 


6D34 


69 




BSR FIND 


2 1A9 


BD1 106 


90 




JSR SI 106 BASIC PRINT 


2 1AC 


FE2 102 


91 




LDX TEMPI 


2 1AF 


209F 


92 




BRA LOOK 


2 1B1 


FF2 104 


93 


NUM 


STX TEMP2 


2 1B4 


06 


94 


L00P3 


I NX 


2 1B5 


A600 


95 




LDAA OiX 


21B7 


6 12E 


96 




CMPA -S2E 


2 1B9 


26F9 


97 




BNE L00P3 


2 IBB 


FF2102 


98 




STX TEMPI 


2 1BE 


5F 


99 




CLRB 


2 1BF 


D79B 


100 




STAB JUST 


2 1C1 


7C009B 


10 1 


JUS 


INC JUST 


2 1C4 


09 


102 




DEX 


2 1C5 


BC2 104 


103 




CPX TEMP2 


2 1C8 


26F7 


104 




BNE JUS 


2 1CA 


FE2 102 


105 




LDX TEMPI 


2 1CD 


C6FF 


106 




LDAB -SFF 


2 1CF 


D758 


107 




STAB DIG 


2 1D1 


7C0056 


106 


L00P4 


INC DIG 


2 1D4 


06 


109 




I NX 


2 1D5 


A600 


1 10 




LDAA 0*X 


2 1D7 


8123 


1 1 1 




CMPA -S23 


2 1D9 


27F6 


1 12 




BEQ L00P4 


2 1DB 


20C7 


1 13 




BRA NUMB 


2 1DD 


DE2C 


1 14 


FIND 


LDX POINT 


2 IDF 


A600 


1 15 


SEMI 


LDAA OjX 


2 1E1 


B13B 


1 16 




CMPA -S3B 


2 1E3 


2703 


1 17 




BEQ SEM 


2 1E5 


06 


1 16 




I NX 


2 1E6 


20F7 


1 19 




BRA SEM 1 


2 1E6 


06 


120 


SEM 


I NX 


2 1E9 


DF2C 


121 




STX POINT 


2 1EB 


39 


122 




RTS 


2 1EC 




123 




END 



THOMAS INST. VIDEO RAM 

Michael J. Morrow 
8853 B Conntr lane 
Chattanooga. TN 37421 
WA4NYT 

Thomas Instrumentation of Avalon,N.J. has introduced an SS-50 buss compatible 
video output card .The cost is $135.00(assembled) or $35.00 (bare board, with crystal 
and documentation) and about three days. 

Operation is quite simple, consisting of just plugging the board into the buss 
connector, addressing the on-board RAM ,and changing all jumps to E1D1 to the video 
routine(5000) .However .there is a quick way of verifying proper operation, and that 
is to enter the following routine after the Thomas software has been loaded. 
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6666 bd 

0001 ElAC 

0003 BD 

0004 5000 

0006 7E 

0007 0000 
A048 0000 

This assumes that a serial input is availiable at port #1 and that the video 
routine is located at 5000. Typing 'G' on the keyboard and following this with a 
Control V,Control P will home the cursor and clear the screen. You should then be 
able to enter characters on the keyboard and see them on the display monitor. 

The display is 16 lines of 64 characters and the character is a 7x9 matrix. 
This requires that the video monitor have at least a bandwidth of 10MHz (no 
converted TV sets, please) . 

The documentation package , which is intended for the advanced hobbyist, is 
fairly complete in that all modifications were listed, however , there is not one 
mention of how the dip switch is to be set. Two minutes study of the schematic 
diagram will show the user the proper setting, but this could stymie someone who is 
not familiar with hardware. 

The idea of generating video from microprocessor control is not new, with Don 
Lancaster's articles on cheap video, this product's unique quality is that through- 
put of the computer is only slightly degraded. This is due to high writing speeds 
of the memory and that vertical and horizontal sync are not generated by the micro- 
processor. Conceivably, the Thomas Video RAM with an old MP -A processor with another 
card to decode a port and read an EPROM would provide an economical alternative 
to the $800-1000 terminals for the hobbyist who is on a limited budget. 
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DO IT THIS WAY! 



3010 


?D 


B02O 


3913 


2B 


0A 


3010 


DE 


20 


3018 


A6 


00 


301 A 


B7 


E02I 


30 ID 


08 




30 IE 


DF 


20 


3020 


39 





TST BO20 : BUST? 
BMI 30 ID : YES. EXIT 
LDX 20 : DATA POINTER 
LDAA X.O i CET DATA 
STAA E021 : OUTPUT 
I NX : UPDATE 

STX 20 : POINTER 

RT8 : TO SCHEDULER 



THE SECOND REQUIREMENT , NOT OVER A 
MILLISECOND PER PASS THRU A ROUTINE, IS 
PERHAPS ALREADY MET BY THE FIRST FOR SUCH 
SIMPLE ROUTINES AS TRANSLATING DATA FROM 
ONE INPUT TO AN OUTPUI". 

HERE IS A SIMPLE EXAMPLE 

I WANT TO TYPE ON MY ASCII KEYBOARD 
AND TRANSLATE THE ASCII TO BAUDOT 
(BECAUSE I OWN PLENTY OF NICE O-LEVEL 
BAUDOT PRINTERS THAT DIDN'T COST 

ANYTHINC) . I WANT TO HANDLE UPSHIFTS AND 
DOWNSHIFTS AS REQUIRED BY THE OUTPUT 
PRINTER IN BAUDOT. I WANT TO PRINT ON 
THE BAUDOT MACHINE. 

THE TASK AT 1000 IS A SIMPLE INPUT 
ROUTINE FROM THE KEYBOARD, EXCEPT TURNED 
AROUND AS SHOWN ABOVE, SO THAT THE 
SUBROUTINE RETURNS IMMEDIATELY IF NO 
CHARACTER IS READY. 

THE TASK AT 2000 STARTS BY CHECK INC 
TO SEE IF A CHARACTER IS WAITING, STORED 
IN TEMPORARY Tl BY TASK 1000. IF NOT, 

RETUBN IMMEDIATELY. 

THEN CHECK TO SEE IF THERE IS ROOM 
FOR AN OUTPUT CHARACTER IN TEMPORARY 
LOCATION T2. IF THERE IS NO ROOM, RETURN 
IMMEDIATELY. 

IF WE PASS THESE TESTS, CHECK TO SEE 
IF THE PRINTER IS IN THE SAME CASE AS THE 
NEW CHARACTER. IF NOT, WE WILL HAVE TO 
SHIFT. SO PUT THE PROPER SHIFT CHARACTER 
IN A SECOND TEMP. LOCATION, T2i THEN 
RECORD IN TO THAT WE ARE NOW IN THE NEW 
CASE i THEN RETURN. 

IF THE CASE IS CORRECT. TRANSLATE 
THE CHARACTER AND PUT IT IN T2t THEN 
RETUBN. 

THE THIRD TASK, AT 3000, LOOKS TO 
SEE IF THERE IS A CHARACTER WAITINC IN 
T2. IF NOT. RETURN IMMEDIATELY. 

IF THERE IS A CHARACTER, CHECK TO 
SEE IF THE PRINTER IS BUSY. IF IT IS, 
RETURN IMMEDIATELY. 

IF WE PASS THESE TESTS, CRAB THE 
CHARACTER FRO M T2 AND OUTPUr IT. THEN 
ZERO T2 AND RETURN. 

YOU WILL NOTICE THAT THESE THREE 
TASKS EACH CO ABOUT THEIR BUSINESS QUITE 
INDEPENDENT OF THE OTHERS. THREE MORE 
TASKS COULD BE DO INC THE SAME THINC FOR 
ANOTHER INPUT, PERHAPS FROM BAUDOT, TO 
ANOTHER OUTPUT. ANOTHER TASK MICHT BE 
WATCHING FOR TICKS ON A CLOCK, AND 
KEEP INC TIME-OF-DAY UPDATED. AND YET 
ANOTHER MICHT BE WATCH INC FOR A SWITCH OR 
SOMETHINC INDICATING A CALL TO CO BACK TO 
THE MONITOR, 



THATS ALL THERE IS TO A SIMPLE 
MULTI-TASK ARRANCEMEWT. CIVE IT A TRY 
THE NEXT TIME YOU HAVE ASYNCHRONOUS TASKS 
THAT DONT SEEM ID FIT A STRAICHT TOP-DOWN 
PROCESS. 

N. J. THOMPSON 

1610 WILDER * 401 

HONOLULU HAWAII 96822 



SWTPC RESET (fix) 



Peter Barman 
4577 Wall 5th Ava. 

Vancouver, B C Canada 



From time to tlma (usually while de-bugglng 
machine language programs) I have found that the 
front panel RESET button on my SNTP MP-08 computer 
Kill not reset the computer, although grounding 
the RESET line on the aiother board will reset the 
system. 

Examination of the MP-A CPU card schematic 
reveals that the reset button triggers a 555 
one-shot, IC II. The output of IC II passes 
through one section of IC 15. a DM80V8/74366 
frl-state hex Inverter before going to the rest of 
the system. Unfortunately, the state of IC 15 is 
controlled by the BUS AVAILABLE signal from the 
CPU so that, should the CPU execute a Halt For 
Interrupt Instruction (or, possibly some of the 
undefined Instructions), which will set the BIS 
AVAILABLE line high, this Inverter will go to It's 
high impedance state, effectively disconnecting 
the reset button at the vary tine It is most 
naededl 



To solve this problem, this section of IC 15 
can be replaced by an unused section of IC 10, a 

7404 hex Inverter, using the following procedure! 

1. Cut pin 9 of IC 10 (7404) free from the board 
(leave enough of the pin on the IC so that you 
can solder to It ) 

2. Solder a short Jumper from IC 10 pin 9 to IC 
I I pin 3 



34 



68 Micro Journal 



3. Solder a wire from IC 10 pin 8 to IC 15 
(7436o> pin 3 

It Is not neccesssry to disconnect the 
unwanted section of IC 15. 

With this modification! the processor will no 
longer ba able to dlsaole the reset button. 

This problem will only occur on the original 
MP-A CPU card, and not on the new MP-A2 card. 

COMPU'f tiKwAR£ announces 

the most powerful bASlC on the 
M6H00. It has 2b commands/ 27 
functions/ 20 statements/ and 
22 disk commands along with 9 
digit precision. This 

kAHDOM-ACCESS bASIC has 
Logical I/O which provides 
hardware independence and 

allows passing paramaters to 
and from assembly language 
sub rountines . Some of the 
outstanding features are 

"PkiaT usiwci", "Oe« clKkOR", and 
"CALL". It can read text 
files as well as other bASIC 
programs. In the immediate 
mode it can edit a line 
without having to retype the 
line. "REPLACE" allows a 
modified program to be saved 
to the disk under its original 
name. It allows the creation/ 
easy manipulation/ and even 
expansion of true RANDOM 
FILLS. The random files can be 
accessed in a random manner or 
sequentially. There can be 10 
sequential and 10 random files 
open concurrently. This is 
available for $99 from 

CUMPUTEKWARE 1512 Encinitas 
blvd. Encinitas CA. 92024. 
(1\4) 436-3512. 

PERC0H ADDS 77-TRACX SIH0LE- AND D0UBLE-DEN5ITJ DRIVES TO LPD 
LIN* OF NIKI-DISK STORA0E SYSTEMS 

Osrland, Teaaa - May 25, 1979 - Harold Mauah , President or 
Perooej Data Conpany, announced hers today that tha company haa 
expanded lta 11ns of LPD mlnl-dlsk eyeteras for 6800/6809 cqmputere 

Co Include 77-track alngle- and double-density storage ayntema. 

tin tin 

Tha LPD product line now Includes LPD-8O0 and LPD-1000 



ayataBl In addition to the LPO-400. 

- t"- 

The LPO-800 etoraa 200X bytes In single-density fomat on 

77 tracks, and la available In one-i two- ami three-drive configurations. 

tn 
The LPD-1000 la a dual-drive syetem that atorea U00K bytes 

por disk — 80DK bytaa par system -- In double-density format on 

77-track dleka. 

tai 
Two LPD-1000 ayetems provide the uaer a total of 1.6N bytaa 

of on-line storage . 

A system la supplied complete with an SS-50 bua com. roller/ 

Interface PC card, an operating system on EPRON, an operator's 

Manual and an Interconnecting cable. 

The LPO-4O0/8OO controller/Interface aeeonaodBt.ee up to three 
cm 
drives and the LPD-1000 controller/interface aoooeaaodates either 

cm 
one or two LPD-1000 dual-drive systems. 

tat 
In addition to M1N10CS-PLUSK , the EPR0H operating system 

supplied with each drive ayatem, Perooa aleo offers two advanced 

tm ■ 

operating ayatama, INDEX and CP/68, Tor use with LPD drive ayatema. 

The Operatora Manual describes each ayatem component and 

Includes operation, service and maintenance procedures for the 

drive. 



Prices are aa follower 



1-Orlve 
2-Drlve 
3-Drlve 

*-Drlve 



LPD-800 

I 895.95 
»15«9.95 

♦2195.95 



LPD-1000 



*2 1195.00 
it 950. oo 

Drdera may be placed by dialing Peroom'a toll-free number, 
1-800-527-1592, and may be psld by cheek or money order. COD, 
or charged to Visa or Maater Charge oredli acoounts. Texae residents 
muat add Si aalas tax- 

Dealer Inqulrloe ere Invited. 



tm trademark of Percom Data Company. Inc. 
■ trademark of Kemenway Associates 



PEACOW DATA COMPANY 31 1 N Kirbv Oariand lea 
S141 S7SO^S1 



NOTE: ALL BACK ISSUES OP 68 MICRO 
JOURNAL ARE PRACTICALLY EXHAUSTED. 

READERS DESIRING BACK ISSUES (EX- 
CLUDING ISSUES 1 & 1») SHOULD GET 
THEIR ORDER IN SOON 

COST PER ISSUE 

$3-50 ea. Includes postage and 
handling. USA 

$Jj . 50 ea. Includes postage and 
handling. Foreign 
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Technical Systems Consultants, Inc. 



product 
anoouncwTMnt 



esc mm m La+ayetie. in dncaj 



mo* ctoii usooir* »u«s o* 6m 




Dollgnod to Virili under tM flfl" disk operating systta, on tin WW 
Microprocessor, this 6009 c OSS aisanbl Tl f vl ly coapa UbTe with both 
MOT and WOO ananonlcs. Thus, flitting. MOO source listings can be 
directly re-ailaMbled to product executable £809 object code. It 1$ 
olio *80l coepatlble. All stendord menoolcs im directives irf 
supported Including Mtcros, conditional asseably, REG, 5ETC*. and both 
SFT end ECU. A IIS function allows an eitomol lourct Me ID ba read 
during ni«tl) of the Main source, warning aMasaoes arc Imported and 
my bo anibttd or suppressed. 

the eortwire li itjiliblt In binary foro on a FtEJt" 1.0 {II Inch) or 
FLEX" J.O (i 1/4 inch) coaipatl&le disk. Kima) and disk art available 
for t IOC. 00 from laconical Systems Conmltintl, Inc.. Boa K)l. Holt 

Lafayette, ladlana 4:9o«. phone (3)7) «63.e!0J. 



•298" lor 16K Static RAM Boards 



0S-« Owratma SrUo- 

• advanced design aodalad aftar unr«— 

• rjevlce-lndeweMnt I/O: cassette, disk, or user. supplied drivers 
(Microwave will Mrkdt driver BXIH for poeulor disk con troll an) 

• lUndaav-sccess, hlererchal flla structure 

• Single- Or eailtlple-oege m^trf aaaeoeMeht 

• rejltlco-lndooonoant Banked ROM 

• CsaoatlOla Uae>. sharing version will be available 

In addition) to IM above, Hlcrowere mil be introducing a 6809 Macro jutsewftlei 
t at editor, and 6009 version of l/llilt Uil sos*?. and seeer. lie Mealy 
nKi — il that before purchasing a nan 6809 CPU beard or coavutev that yen, 
InmllgeU Its conpellblllty with this new software and existing 6800 hard- 
ear*! rtucon and Ctrl]* nave Indicated that their n 6809 boards will be 
ce-patlble alth this software and present (800 hardware. SKTPC has declined 
to release a*v data about their 6809 CPU car to date. 

• nil [rut end Fits are trademarks of rx 

" IhWIll a Irtdeourt of FtKOM 

••• Mil 1s a tradtaark or bell Telephone laboratories 



SIMPLE MULTI-TASKING 



Noel J. Thompson 
1615 Wilder No. 401 
Honolulu. Hawaii 96822 



IF THE CORCEPT OF MAKINC YOUR MICRO 
DO MULTIPLE TASKS AT THE SAKE TIME 
FRICHTENS YOU, PERHAPS WE CAR REDUCE 
MULTI-TASK OPERATIONS TO A SIMPLE LEVEL. 
THEN. WHEN YOU SEE HOW EASY IT IS, YOU 
MICHT CIVE IT A TRY. 

MULTI-TASKING REQUIRES A SCHEDULER. 
A SUPERVISORY PROGRAM TO DECIDE WHICH 
TASK TO DO NEXT. HERE IS A SIMPLE 
SCHEDULER: 



GIMIX INC., announces I hat II is now delivering 2 veisions ol 
16k sialic RAM boards lor iheSS SO bus. Both use TMS 4044 RAMS, 
have gold bus connectors, and are tested at 2 MHZ. They have DIP 
swlich controllable addressing, write protect, and enabling ol each 
4 K block which allows, lor example, the user to pul 4K in high memory 
lor DOS, and the remaining 12K In low memory. With Ihe above 
features only, Ihe price 18 '296". The deluxe version is sockelled and 
GWOSTable [software controllable readdressing, write protect, and 
enabling ol each 4K block) lor '388". 

GIMIX" and GHOST" are registered trademarks of GIMIX INC. 



tee hd leoe 

163 BD 2000 

ie«5 8D 3000 

169 02 02 02 

IOC 20 F2 



GOSTJB 1000 

COSUB 2000 

COSUB 3000 

ROOM FOR EXPANSION 

BRANCH TO 100 



THIS SCHEDULER IS OF ROUND-ROBIN 
FORM. OSTENSIBLY GIVING EQUAL TIME TO 
EACH SUBROUTINE IN TURN. AND IT HAS NO 
CONTROL OF HOW MUCH TIME EACH TASK TAKES, 
SO WE NEED SOME RULES, SUCH AS: 

1) IF A TASK HAS TO WAIT FOR AN I/O 
DEVICE, IT SHOULD RETURN IMMEDIATELY 
INSTEAD, AND HOPE FOR BETTER LUCK NEXT 
TIME. (ALL MY PROGRAMS INCLUDE THE 
•HOPE' INSTRUCTION, DONT YOURS?) . 



2> NO TASK SHOULD TAKE MORE 
MILLISECOND OR SO IN ONE PASS. 



THAN 



HICMktUI HW PRODUCT WWUTIEP, 
•Mil, 1979 

Thank vow ror your Inquiry about our line or 6800 really hardware end 
software products. We ere In the process of Intredoclnq scaee new soft. 
ware Sd our 1979 catalog Hill not be ready for soaa* tie*. In the inierln 
we ere Presenting new product Information In this newsletter. 

ortiwihw systems io**a»T 

Aleost all Hlcrewere software Is available on cassettes for Klttut, ST/68. 
SAfTeVC, etc. Also, our dlsk.besed software IS available for Snocc Slonal 
DOS. SHTPC PHoinea', and Motorola MMS. ue are eon-tolly preparing .erslo 
for use new FLU' and Peeceai IftOCI" disk oo. rati no ■mean as well. 

Motorola contracted hlcroware to prudece the finest possible software for 
the 6809. The new sortwere we have prepared for Motorola Includes a new 
•ASIC language syitea plus an operating system. This software will be 
available soon frvja Motorola end kHcrowjr*. Hera are e few hlohtlohts: 



AS YOU CAN SEE, THE RESPONSIBILITY 
FOR CONTINUING OPERATION THRU THE LOOP IS 
ABDICATED BY THE SCHEDULER, AND LEFT UP 
TO THE TASKS THEMSELVES. 

THIS ISN'T SO HORRIFYING IT YOU ARE 
WRITING DEDICATED TASKS. AFTER ALL, YOU 
HAVE MORE CONTROL OVER THE TASKS THAN YOU 
HAVE OVER THE DRIVER IN FRONT OF YOU WHO 
CONTROIS THE TIME THRU YOUR DAILY DRIVINC 
SCHEDULE. 

NOW, HOW ARE YOU COING TO IMPLEMENT 
THE FIRST RULE FOR I/O PROCESSES? SIMPLY 
BY CHECKING. AS YOU ENTER A ROUTINE, 
WHETHER OR NOT THE PRINTER IS BUSY. 

DONT DO IT THIS WAY: 



kaHld'1 fastest MlciOO M a P utor 8A5IC Interpreter 
InlegreWdcojepller/tntprproter/edtter package) 
Structured lASIt • >H1 even rvn Why PASCAL program with ariaa 
■edification. Plus cpapettbl* oil* SVTPC era) Microsoft BASICS 
five data types: floating. point (9. digit accv acy); Integer 
lit bit), lyte (8 bit), toolean, and String (variable lenqth) 
User-defined record dote structures dialler to PASCAL) 
Formatted I/O to Multiple devices using OM 
1 Position-independent i reentrant code 
Device-independent I/O In c nlunctlon with 03-9 
Hashed on ROM chip set 



3010 7D E020 TST E020 t BUSY FLAG 

BMI 3010 t LOOP IF BUSY 
LDX 20 :DATA POINTER 
LDAA X.O : GET DATA 
STAA E021 i OUTPUT 
I NX : UPDATE 
STAA 20 : POINTER. 
RTS : TO SCHEDULER 



3013 


2B 


FB 


3019 


DE 


20 


3018 


A6 


00 


301 A 


B7 


E02I 


30 ID 


OB 




30 IE 


B7 


20 


3020 
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EFFECTIVE SEPT. 1, 1979 

1-Year $14.50 2 Years $26.00 3 Years $36.50 

OK, PLEASE ENTER MY SUBSCRIPTION 

Bill My: Master Charge □ — VISA □ 

Card # Exp. Date 



For □ 1-Year Q 2 Years 

Enclosed: $ 



□ 3 Years 



Name- 



Street. 
City_ 



State 



JZip_ 



My Computer Is:. 



68 MICRO JOURNAL 
3018 Hamlll Road 
HIXSON, TN 37343 



ED SMITH'S SOFTWARE WORKS 

ANNOUNCES WMWA© 

AN M6800 SYSTEM RELOCATABLE RECURSIVE 
MACROASSEMBLER * UNKING LOADER 



ATTENTION ALL PROGRAMMERS: u you have 

been looking for an assembler with real macro capabilities, then 
jLTiJtiUt is the one for you. 

Charaotar replacement le the orux of macro expansion. lOJfflAiO 
allows unlimited oharaotsr replacement In any field of a maoro 
model statement. JUIiSflASrs argument notation oan Bpeolfy replace- 
ment from any field, eubfield, subllst or substring of the maoro oall 
statement s est of maoro dlrecUona supports both global 

and local set symbols. Set sy mbole oan be based on either arithmetic 
expressions or oharaotsr expressions. Macro mods! statamsnta can 
determine attributes of est symbols or maoro arguments. smuatAa 
allows maoroe to define new maoros and to oall other maoroa Maoro 
calls can bs recursive, that la. a maoro may call itself. 

contains a mini co-resident editor, allows spooling if 
desired, supports Insert files, retains TSC Tsxi Editor souros oode 
oompatablllty. plus many other programmer oonvenlenoe features. 

,« can be furnished on cassette or mini floppy In either B8B 
or Mlnl-Flex format Comes complete with linking loader, Instruc- 
tion Manual/Programmers Ouids Ic an extensively commented 
assembly listing 



A 6800 W 8809 orpw uaBmbler 
verllon of Ift&JfiA'O will bt 
*v»ilsb)» In June 



M68RB ouaalu 1180 00 

M6SRR-D SBBdieo I ISO 00 

M68RST PLEXdleo (180 00 

Specilv 'Mini" or Vol Z 

Order directly by check or MC Visa California rssidsnte add 6% 
sales tax Customers outside of U 8 or Canada add IB for air postage 
ft handling. 



Deafer inquiries welcome. 



FLEX li trademaik ot TSC 



Ed Smith's SOFTWARE WORKS 

P O. Box 339. fledondo Beach. CA 90877, (213) 373 3360 



EPROM PROGRAMMER 
Model EP-2A-79 




iOMWARf AVAIlAftlE FOR f-S, 9080, 6900, 

was, /-ao, mm, kim<i. ieo2. ksqx 

i PROM type I. tf}*cled bv J pcttonaUiy module 
which [ilL/flf inio the Itont ol ihp piogr itnmfr. 
Powi-r requirement *re 115 VAC. W/6GH/ jt 15 
wjif. II u tupplied with j 16 inch ribbon cable 
for conn** tins lo microcomputer fteXjuires 1V> 
I/O pom Pnn-d Ji Si S S wrih One *ei ol 

•MUtsitv Pprwiaiiiy module* are *ho.*n below. 



Put No. 




ftoirtmt 




Prl« 


PM-» 


IMS 


2708 




(151X1 


PM-1 




2?M,27M 




15 00 


PM-1 




i712 




WW 


PM-J 


IMS 


2716 




15 00 


PM.< 


IMS 


2S32 




30 00 


PM.S 


IMS 


KM.27U, 


27 iB 


1500 



Optlmil Technology, Inc. 

Blue Wood 127. Earlysville, VA 22936 
Phone (804) 97J-S482 



ATTENTION SWTPC DISC SYSTEM USERS 
ah Ed smith. M8800 SOFTWARE TOOLS 



Ml "On IvJiilibf* >n m 
July BYTE IwrJitttKif 



FLEX i irtiii ai well ttSmokf S-m*l BiQedCaiKnfl tD»m*t S»e 
tfii prtcat 0<w umm tdtciry SS8 OH SwtPco 
M68O0 RELOCATING ASSEMBLER AMO UNKING LOAOER whwu fo> reo.tj jwdfl.i'i 
devtlopmam a nd i* buHjot rwj Some of >H E*a1u**l v* RELOCATABLE CODE FULL 
ALPHABETIZED CROSS REftRf.NCt LISTING BOTH GLOBAL *S0 LOCAL 
LABELS LISTING OF EXECUTION TIME RELATIVE BRANCH TARGET ADDRESS 
ES BCHARACTER LABELS cORESiOEN T € D iTOR ENGLISH ERROR MESSAGES 
BOCOLUMftl LISTING USING fR40 afe 

MMAS rmiU *SOO0 

MOAASO nlihrtlopev SSBBS 

M6800 RELOCATABLE OtSASSEMHLER ANO SEGMENTEO SOURCE TEkT GEN 
ERATOR Th.i tot invite lso 4 enaWei you to modify and adepi (how ii>pe wed obt»ti &ct 
QroffH and >r tiwmb>l Ihim nn yotif uiitw *MhO*M ieQu.nn.fl enOim in memory Tr>tf 
prOe/arrt wi>t orodutt upmMd tojftr if *i t«i»» Mnlh *li i*a • «'•*"■! Imaega ir>laim*non 
>«aui'*d *<H ■* eiumbly ulinfi ihe abo** n»loc*l rii *ii»miM(i 

MBBAS cA-ry JJ6 00 

M6BRSO m.n.flwv S«fl«S 

MMAS* K Abov* two piOgitmt on |.no>r dM**|lf $B» 00 

The ebov« two PfOgr«yvv« art fu>»itn*d in mora lab* 'a mauid coda «iih uniWHCiion 
mlno«t) and commented iiumaiv l-iitngi Tht Joadti >» aHotuPVlitd m u«net4Vd MlKflUG 
format on ctiwiti o> m a b<n»'V hla on cue io -ml Lilly Fold lh» iink.A*} loidai «t n>« M 
^iradaddrow 

Trtt linking lotdtr •« alio tviilibla m EPROM on two ?l0»'i for S45 DO SpKrfy dfineoi 
•dd«et> and vattion , i » ciiutii. f LEX Of SSB For FLEX Specify Mini of Ver 2 

8-rfH-T-lf-e-ihfi 

FIRMWARE from Ed Smuh i SOFTWARE WORKS 

A 7k Mort.io* O-tMMtTtH*' Tf«c« DfbuOCa^a Tool m E FROM. Uh H lltAd^loni rTVurtmjP a* 
at «n 2>d|uncr to yov^ SmiribU<B Of SwtDvB Rtouiraj AT I A tf cornrt>i con Prow.dfi H 1 i^a 
monnor comrnanA T73I you could **** «> for. emu- I ha coftwonitnc* of t mnamonK On 

Mist'-nh'f ond unfyt u«-.f> -.g diianomblar i'K« dupHy InitFKiofl vt« o' big** or du«i 
l>r*(kooiftf whih iroca CMCkuD ■! braahponi. plui many r*a** nwiilgi Turmirfjni and iub 
rowTinoi. mthtf rh 'i ■ f-upar ieh>i you **ill Idv» 1q worh ivth Lhti locanom |FBO0 to 
iFFFF Fuinnhid S n Imq ^7CJi'l en ona 2?iB Includai Min u -i- anrj iomnnmhi aiMiTWt 
lm.no SoOCth/ ACl* lOCItlDA tnri iH. M m rftoyi|IQi 11% 'i'rtfi to N*av tAOOO RAM com 

pttt&,ltv BMITW1UO ON ITWa MOOO 

SMlTMBUO Of* IT1B S7000 

Gel under Ed Sitmh » Sofltwaie RUG lR»locjh'»fi OMtfmbfar U**r» Grovp] All RUG mam 
ber» Milt h*»t use ol * buMtOQ tofitnore lupport library m r*|pcar»bJe lormal Uocoming 
■tin** a<e i f ioan«g Pturv* paefctv* *nd ■ ~*"B oockeor 

Ordfl ArKl bv cheek oa<>1V ivn«m con ipgu'aliOn if Dlfi*r |h*n SwTPCo ClltlOin.i 
1-et.dar.i. a4tf $\ tllti li> 



Ed Smith's 



SOFTWARE WORKS 



P.O. Box 339. Redondo Beach. CA 90277. (213) 373-3350 
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Inventory Problems? 



Are you having trouble keeping rhe right nurs 
and bolts in stock? Since even o simple mistake con 
cost you rime and money, a good inventory system 
should do more than Just count ports. It should tell 
you exactly what you need, when you need it, 
where to get it, and how much it will cost. 

The MSI Inventory System Seven enables you to 
maintain a versatile data bose for controlling 
inventory. It lists port number, description, quantity 
on hand, vendor, cost, selling price, optional 
pricing, usage levels for previous month, present 
month, and year-to-dote. and much more. 

When quantity on hand items reach minimum 
levels, the System Seven compiles on automatic 
reorder list. This list con be generated by spe- 
cific vendor as well as o complete listing of 
all materials to be ordered. 

In addition to the item listing, the In- 
venrory System Seven "bill of materials" 
provides you with a complete inventory 
of items used in the manufacture of subassemblies 
and complete products. It also contains other cost 
items such as labor costs, total row materials costs, 
and miscellaneous costs. 

The MSI Inventory 5ystem Seven is built around 
rhe versatile MSI 6800A Computer with 56K of 
RAM. An integral dual mini-floppy memory gives 
you on additional 630K of memory and makes 



inventory control fast and efficient. The System 
Seven will interface with any industry standard CRT, 
and you hove rhe option of both a "daisy wheel" 
word processor for high qualify document prepa- 
ration and a dor matrix printer for high speed 
production. 

The 5ystem Seven con be expanded to handle 
all your data processing needs or you con select 
one of nine other M5I systems now available 
for business, industrial, scientific, educational, and 
personal applications. 

If you need more than just a nuts and bolts 
inventory system, we hove more informa- 
tion about how the Inventory 
5ystem Seven con solve your pro- 
I blems economically. 









MSI Inventory System Seven 



midwest Scientific 

220 W.Cedar. Olothe, Kansas 66061,(913)764-3273 
TWX 9 1 749 6403 (MSI OLAT). TELEX 42525 (MSI A OLAT) 
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MINI-SYSTEMS 

* 

CASH-FLOW 

Bookkeeping 

System 

This mini accounts payable and gen- 
eral ledger system provides account 
codes lor categorization, checking 
account reconciliation, year-to-date 
totals, a dated purge facility, and 
complete activity recording. Reports 
include expense repoil, account re- 
port, all activity, written checks, out- 
standing checks, adjustments, and 
deposils. Sort keys have range se- 
lections. It is whiten in Random 
BASIC for SS8 DOS. 



introAictwy price 



$99.95 



Does Your 
BASIC Have: 

Random Records, 

PRINT USING, 

ON ERRor 

EDIT 

. . . Our's DOES! 



Random Access BASIC, wntten lor 
the Smoke Signal Broadcasting disk 
system, allows the user to retneve, 
change, or add a record directly with- 
in a lite Many proven application 
packages are available! 



$99.95 



MINI-SYSTEMS 

* 

RANDOM V2 

INVENTORY 

SYSTEM 

Keeps record ol: Part Name/Num- 
ber, Vendor Code. Selling Pnce. 
Average Cost, Quaniity-on Hand 
Quantily-on-Order. Minimum Quan- 
tity, Categoiy Code. Location Code 
There are no system limits to the 
number ol items. Reports may be 
soiled by Part Name/Number, Cate- 
goiy. Location, or Vendor and a re- 
order report is provided. On-line 
search and invoicing is included It s 
wntien in Random BASIC tor SSB 
DOS 

mUoductoiy pnce $69.95 




Random V2 
Mailing List 
System 

Label pnnting directed 
to any port — optional 
phone number & special 
code— selectable label spacing 
— date lieldm each record— sorted 
reports or labels can be requested by 
range ot values in tields date, code, zip 
name— title/counliy tield in each record — 
all fields except date are alphanumeric 
written in Random 8ASIC for SSB DOS 

introductoiy pnce 

$89.95 



LOOK TO US 

FOR 

HARDWARE 

TOO!!! 



Smoke Signal Broadcasting, 
SWTPC An.i.lcx Cenlromcs. 
NEC. SOROC. Micro-Term. 
Sanyo, Ledex. Micro-Works . 



ARE YOU ON OUR MAILING LIST? 

Fill out and send in the form. 
If you are not in our mailing list, you will receive 

( 1 ) A coupon worth $5 on your 
first Computerware purchase 

(2) All of our current 

product information 



$5 

Name 

Street 

City 

System Description 



$5 



State 



Zv 



ss 



ONE COUPON PER CUSTOMER 



$5 
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THE CLASSICS 





The first Micro Works PSB08 PROM Board was assembled and burned in over two years ago— eons in the micro 
world. Designed as an efficient, cost-effective EPROM storage system for the SWTPC 6800, its flexibility 
accomodates all the new S-50 computers on the market— SWTPC 6809, GIMIX, MSI and Smoke Signal 
Broadcasting. The 2708 EPROM remains an inexpensive, capable media for storage of subroutines, I/O 
handlers, monitors and even BASIC interpreters while the cost and availability of 2716s still don't justify their 
purchase. PSB-08 has space for up to 8 2708 EPROMS and the following exclusive features: 

* 1K "scratch pad" RAM— more than enough temporary storage capacity for any program requiring up to 
8K of PROM 

* Dip-switch addressable PROM and RAM, to start on any 8K boundary in memory 

' I/O select capability lets you move the I/O locations to any unused 1K block in EPROM memory space, 
permitting memory expansion to a full 56K contiguous user RAM 

Originally intended for use with 6800-based system software, the PSB-08 will continue to be a valuable tool for 
years to come with your 6809. And the relocatable I/O feature lets you keep your 6800 system up-to-date. 

The past two years have seen many microcomputer products come and go. In our history, there have been no 
takers on the PSB-08's warranty. Like the classics, our PROM board endures. Price: $119.95; regulated + 12v.: 
$124.95 

The Micro Works Classics also include: 

B-08 EPROM Programmer — with all programming voltages generated on board and controlled by a safety 
switch with an LED indicator. An industrial quality Textool socket and extended board height allow effortless 
EPROM insertion and retrieval. The source listing of U2708 is included in the Owner's Manual. Price: $99.95; reg. 
+ 12v, $104.95 

U7808 — Utility to test, burn, verify and copy EPROMS in 2708 EPROM: $29.95 

DS-68 Dlglsector* — a random access video digitizer featuring 256 x 256 picture element scan and 64 levels of 
grey scale, with conversion times as low as 3 microseconds per pixel. The DS-68 accepts either interlaced 
(NTSC) or non-interlaced (industrial) video input. Use it for computer portraiture, moving target indicators, 
precision security systems, fast to slow scan conversion. . .with clever software, the Digisector can read just 
about anything. Truly a professional tool at a price you can afford: $169.95; reg. + 12v. $179.95 

UIO Universal I/O Board — has space for a 40-pin wrap socket into which you can plug any of Motorola's 40 or 
24-pln interface chips. The data and control lines are connected to the appropriate edge connector pins with all 
other bus connections brought out to a 16-pin socket pad. Build circuits in half the time with UIO. Price: $24.95 

DM-85 Disk Mixer — for running mixed 8 and 5 inch drives. This is an add-on board for the Smoke Signal 
Broadcasting BFD-68A Disk Controller. Controller mode (8" or 5") is selected on a drive-by-drive basis, so any mix 
of 5" and 8" drives is allowable. Its operation is completely transparent to software. This kit requires access to an 
oscilloscope for the setup procedure. Price: $39.95 

M6809 Emulator — a machine language program that will emulate all the functions of the Motorola 6809 third 
generation microprocessor. Developed for use on any 6800 computer system, the program allows software 
debugging and development prior to 6809 availability. Specify Smoke Signal Broadcasting or FLEX 1M disk, or 
KCS cassette. Price: $49.95 



THI 



WOODSY 



P.O. BOX 1 1 1 0. DEL MAR. CA 9201 4 



714-756-2687 



P-6800 




Available NOW for 6800 based systems 

PASCAL P-code compiler 

Efficient run-time system Interfaces 
to mlnl-FLEX™ or FLEX™ 2.0 DOS 

60-page user guide and reference manual 

Useful utilities provided 

Sample demo programs 

All for $ I 50 

VISA card accepted 

Hardware requirements - minimum for 
FLEX ( I6K) 



Send for further details to: 



luciddHd 



Luc I data 
Oostelnde 223 
2271 EG Voorburg 
Netherlands 



FLEX is the trademark of TSC Ina 
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5-1/4" Minidisk — Soft or Hard Sector 



s 

A 
V 
E 



V 



SOUTH EAST MEDIA SUPPLY 

6131 Airways Blvd. 615-892-1328 

Chattanooga, TN 37421 



Ol 




D 
I 

S 
K 
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H H H Enterprises 

Box 493, Laurel, Md. 

20810 301-953-1155 



SPIRIT @ $69.95, a "FORTH"® like lan- 
guage is available on 5 or 8 inch Smoke disk, 
with a hardcover notebook of documentation. 
This is a stack orientated program that compiles 
your statements into itself. Includes a starting 
dictionary of over 200 words. 



NOW!!! 1st in a series of disks of goodies. 
STD-1 contains: 



ATTribute: handles write protect, delete pro- 
tect and system flags in the DOS. 

LOOK; is a list that tells file type, status of 
flags, etc. 

TMON; changes ver 4.2 & earlier for crll H 
backspace 

SDC; a smart single disk copy program. 

ERROR; returns text for an error msg. 
number. 

MIRROR; makes a bit for bit copy of a disk, 
also for mass copying. 

MAP; This elephant uses 20K RAM & will tell 
you more about a disk than you'll probably ever 
need. Will also restructure your free sector 
chain. 



PLUS OTHERS. 

Includes SOURCE ON DISK, object for 6/7 
DOS and documentation. Price is $35.95. 



Call us for the latest news out of GIMIX and 
the absolutely GREAT 80 x 24 vidio board. 



Call us for system integration and custom 
software. We use ISC terminals and GMXBUG 
3.0 on our sample systems, so we know what to 
patch. 



Watch for our patches to BASIC ver 9, to add 
SUB$, SORT$, AND PLOT. 

H H H Enterprises 

Box 493, Laurel, Md. 

20810 301-953-1155 



JPC PRODUCTS FOR 

6800 



COMPUTERS 
SWTPC and MSI 



^AD-16 DATA ACQUISITION - 69.95^ 

■16 CHANNEL precision analog input board. 

•VERSATILE - supports individual channel 
programmable gain. 

•ACCURATE - 0.39% resolution with less than 
0.70% total conversion error. 

•FAST - more than 3390 samples per second. 
•SOFTWARE - included with documentation. 



^TC-3 CASSETTE INTERFACE - 49.95V 

•FAST - -1800 Baud l.oads JK in 8 Seconds! 
•RELIABLE - Error Rale Lege Than 1 in 10" BYTES. 
•CONVENIENT • Plugs Directly Into The 
Motherboard. 

•PLUS • Read and Write Kansas City Standard 
Format at 300 Baud. 



•CFM/3 SOFTWARE - 19.95- 



"\ 



•CASSETTE OPERATING SV5TEM for the TC-3 
cassette interface. 2K memory required. 

•FILE MANAGER supports named files, load, save, 
run, find, list. move. dir. , etc. 

•BASIC, ASSEMBLER and EDITOR can now 
support named Tiles through the file manager. 

•OPTIONAL CFM/3 on cassette • 6.95 additional. 



^elc. 

|»MX-< 

UbT-9 



MX-6 - main board extender - $19.95 

BT-9 - bus terminator • eliminate bus noise • $9.95 



V 



^Deii 



igned By ProleutonaJs For OuUla nfUn f Performance 



:\ 



'JPC product* 



P.O. BOX 5615 

ALBUQUERQUE. N.M. 87185 

iKBI IVMbU 
Mill W.IK) I'KH (till*™ 

mil siiii'I'IM: « iivmiiisi. 
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Software Source Books 



TM 



Combining detailed descriptions with complete source listings, these 
books explain the internal operations and algorithms used in Hemenway 
Associate's popular systems software. 

How much would such a complete software resource cost? If you've seen 
the PAPERBYTE books by Jack Hemenway and Robert Grappel you know how 
inexpensive they can be. And now you can have the companion volumes to the 
RA6800ML macro assembler and LINK68 linking loader books. 

Remember, these are not Just books: tney are Sof twareSourceBooks 
complete Software resources! Order them today; VISA and MasterCharge 
accepted. 

TM 



CF/68 OPRRATTMC SYSTEM 



PIP Peripheral Interchange 

Program transfers data 

between physical devices 

Wildcard Filenames and Extensions 

Relocatable anywhere in 

Memory 

Extended Instruction set 

includes 6809-type instructions 

(PSHX, PULX, etc] 



Device 

Random 

Fits in 

Chainin 

Single 

furnish 

Easily 

devices 

Dynamic 

TM 



independent I/O 
and Sequential Files 
less than 8K 
and overlaying 
supervisor Call 
es all DOS services 
interfaced to new 
and peripherals 
file allocation 



STRUctured BAsic Language (STRUBAL+ ' ) COMPILER 
for both business and scientific uses 

l*«S.95J 



Variable precision from 4 to 

14 digits 

Structured Programming forms 

Produces Relocatable and 

linkable code 

COMMON and DUMMY sections 

XA680q Macro 



Runs on any M6800 
Full Macro facilities 
COMMON section for the 

B reduction of ROMable code 
ondltional Assembly 



WWfr 



* Extensibility 

* String Handling 

* Full scientific package 

* Data structures with 
mixed data types 



Cross Assembler 

• Generates linkable and 
relocatable code 

• Sorted Symbol table listing 

• Hash-coded Symbol table 
for speed 



Hemenway Associates Inc. 101 Tremont St. Boston MA 02108 



Name 



Title 



Company 



Street City State Zip 

( ) Check enclosed in the amount of $ 

(. ) Bill VISA ( ) Bill MasterCharge 

Card No Exp. Date.... 

Please send the following books: 



Add $0.75 per book to cover postage and handling 
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SURPLUS ELECTRONICS 



ASCII 




ASCII 



WITH FLEX DRIVERS w 
IBMSELECTRIC 
BASED I/O TERMINAL 
WITH ASCII CONVERSION 
INSTALLED $645.00 

• Tape Drives • Cable 

• Cassette Drives • Wire 

• Power Supplies 12V15A, 12V25A, 
5V35A Others, • Displays 

• Cabinets • XFMRS • Heat 
Sinks • Printers • Components 
Many other items 

Write for free catalog 
WORLDWIDE ELECT. INC. 
130 Northeastern Blvd. 
Nashua, NH 03060 
Phone orders accepted using VISA 
or MC. Toll Free 1-800-258-1036 
In N.H. 603-889-7661 



--FINALLY, A 
A^^AjTELEPHOME 
^$0? ] VWITHBYTC! 



6800 AUTOMATIC TELEPHONE DIALER 
PROGRAM $9.95 postpaid 

Have your fe80() system dial your phone • Uses 
only 5 external components • Stores 650 variable 
length phone numbers • Operates in less lhan !K 
bylesof memoty 

Includes: Paper lape in Mikbug* formal and ob- 
ject code • Circuit diagram and instructions 
• Insirut lions tor adapting to other 6800 systems 

6800 TELEPHONE ANSWERINC DEVICE 
PROGRAM $4.95 postpaid 

Have your 6800 system answer your phone and 
record messages automatically. Compatible with 
any 6800 system. 

Includes: Assembly listing and object code • Cir- 
( uil diagram and instrut tions 



Write to: SOFTWARE EXCHANGE 
2681 PETERBORO 
W. BLOOMFIELD, MICH. 48033 



MiMnjfl' is .1 rWgrMfl 



■il-r- m|.< 



nirk nl Mirltirnlj Int. 




SINGLE BOARD COMPUTER $99.50* 

with 6800 MPU, 6850 serial I/O. 2 6820 
parallel I/O (32 lines). 512 RAM. socket for 
2708. 2716. EROM. Interface modules for 
industrial control, data acquisition, lab 
instrumentation, on 44 pin 4V4"x6 1 A" PCB's. 
RAM. ROM. CMOS RAM/battery, A/D. D/A. 
Driver/Sensor. Serial I/O. Parallel I/O, 
Counter/Timer, IEEE 488 GPIB, floppy 
controller. 

"OEM (500 piece) price 




wixi i;k 



902 N. 9th Street 
Lafayette, IN 47904 
Phone (317) 742-6602 



Corp. 




6SQQ OWNERS 

Ac last a real world fully addressable SS-50 
control interface. Control robots, appliances, 
organs, solar devices, etc. Applications limited 
only by your imagination. Easy to use with ma- 
chine language as well as basic. Fully buffered 
board plugs directly onto mother board and re- 
sponds to any address defined by user. 8 fast 
relays latch data while 8 opto-isolators allow 
handshaking capacity. Kit $98.00 

Assembled and tested S12S.00 

EXTENDER BOARDS 

Extend both the 30 and 50 pin buses in SWTP 

Both for S19.95. 

Visa & Master Charge ■ Ariz Res add 5% Sales fa* 

WRITE FOR DETAILS 

TRANSITION ENTERPRISES INC. 

Star Route, Box 241. Buckeye, AZ 85326 
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SUPER 
SOFTWARE! 

MICROWARE 6800 SOFTWARE IS 
INNOVATION AND PERFORMANCE 



rWEWl LISP Interpreter 

The programming language LISP offers exciting new possibilities for 
microcomputer sppltcallons. A highly Interactive Interpreter that uses 
lisl-type data structures which are slmulleneously data and executable 
Instructlona LISP features an unusual structured, recursive function- 
oriented ayntex Widely used lor processing, artificial Intelligence, 
education, simulation and computer-aided design 4600 LISP requires 
a minimum of 12K RAM 
Prlca 175.00 

A/BASlC Compiler 

The aver. growing A/BASIC family Is threatening old-fashioned 
assembly language programming in a big way. This BASIC compiler 
generates pure, tail elflclent 6800 machine languege from eesy to 
wnte BASIC source programa Uses ultra-fast Integer math, extended 
string funcilona. boolean operators and real-time operations Output Is 
ROMablt and HUNS WITH UT AN* HUN-TIME PACKAGE Olsk ver- 
sion shsve disk I/O stalementeand require I2K memory and l<oat DOS 
Cassette version runa In 8K and requires RT/ 6 operating system 
Prices Disk Extended Version 2 1 1190.00 
Cassette Version I *«6.oo 



fHEWl A/BASIC Source Generator 

An "add-on* option lor A/BASIC Compiler disk versions that add* an 
extra third pass which generates a lull assembly-language output 
listing AND essembly language source file. Uses original BASIC names 
and Inserts BASIC source lines as comments SSB and SWTPC 
Mlnrllex version available 
Price $50 00 

CffEWl A/BASIC Interpreter 

Here 11 is— e super Ibji A/BASIC interpreter that Is sourco-compatibl- 
wllh our A/BASIC compllerl Now you can interactively edit, execute 
and debug A/BASIC programs with the ease ol an Interpreter—then 
compile to euper efllclent machine language. Also a superb siend- 
alone applications and control-oriented Interpreter Requires 8K HAM 
The cassette version la perfect for Motorola D2 Kits 
Price: 176.00 

RT/68 Real Time Operating System 

MIKBUQ— compatible HOM that combines an Improved monitor/ 
debugger with a powerlul multltaaklng reel-time opereting system 
Supports up to 16 concurrent tasks at 6 priority levels plus reel time 
clock end Interrupt control. Thousands In use since 1976 handling ell 
types ol applications. Available on 630 (MIKBUG-type) or 2706 
(EPROM-|ype| HOM Manual la a classic on 6600 reel-time eppllcetlons 
snd contains ■ full source progrsm listing. 
Price: RT66MX 1(6301 195 00 
RT66MXP 127061 199.00 

6800 CHESS 

A chellenglng cheaa program (or the 6600 Two selecteble difficulty 
levels. Displays formatted chess board on stsndsrd termlnsls. Re- 
quires 6K memory Mechlne lenguege with A/BASIC source listing 
Price-. 190.00 

ELIZA 

6600 version of the femoue MIT arliflclel Intelligence program The 
computer assumes the role of a peychoenelyet end you ere the patleni 
This unusual progrsm is unique because the dialog with the com- 
puter le In unetructured pleln English, An Impressive demonstration 
program 
Price: 150.00 



Our Miavt it a*eit0M lor meet ceeuUr eeOO tt sM fflt on ruiifli « atskert* 

iomi !>;•>»'..»» netea Oak raraiont s*aiub% en 8 8 ax. SWTPC, or Motorola 
MOOS. P i m a apeefy nracti you require Prune orders are se t -owe* We acaap* 
MaSTCPjChaME end VISA we try to VHP orders attMn U noun ol race** 
neeso call or ante it you require additional UMormeaon or our tree catalog 
Mwomii »A«*ra Is aMUDie for OEM and custom eoeOcaeont 



MICROWARE 

SYSTEMS COHr-OMATHJN 



P.O. BOX 4M5 

0E8 MOINES, IA $0304 

(515) 269-6121 



'68' MICRO JOURNAL 

if The only ALL 6800 Computer Magazine. 
if More 6800 material than all the others com- 
bined: 

MAGAZINE COMPARISON 

(2 years) 

Monthly Average* 

6800 Articles 



KB 

7.8 



TOTAL 
PAGES 



BYTE CC DOBB'S 

6.4 2.7 2.2 19.1 ea. mo. 

Average cost for all four each month: $5.88 
(Based on advertised 1 -year subscription price) 

'68' cost per month; $1.21 

That's Right! Much, Much More 

for About 

1/5 the Cost! 

EFFECTIVE SEPT. 1, 1979 

1 -Year $14.50 2 Years $26.00 3 Years $36.50 

OK, PLEASE ENTER MY SUBSCRIPTION 
Bill My: Master Charge Q — VISA □ 

Card # Exp. Date_ 

For □ 1-Year fj 2 Years □ 3 Years 
Enclosed: $ 



Name- 



Street. 

City 



State 



-Zip- 



My Computer Is:. 



68 MICRO JOURNAL 
3018 Hamlll Road 
HIXfiON, TN 37343 



Foreign surface add $9.50 per year. 
Foreign Air Mall add $29.00 per year. 




mMa% 




^ 
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NOW INDUSTRIAL QUALITY AT LOW COST 

FROM THOMAS INSTRUMENTATION 



Industrial system boards are now available separately for OEM, prototyping or hobbyist applications. 
Shipped from stock, these are the same quality cards used in monitors and machine tool controls 
designed for GM. LTI, and General Electric. All cards are SS-50 buss compatible and are suitable for 
dedicated applications. The CPU card and the Video RAM Card may be combined on a Tl backplane 
as a stand-alone micro — ideal for prototypes or hobbyists. ATTENTION OEMs : If you have a control 
data acquisition, monitoring, or other microprocessor application. Check with Tl for more information 
about custom software design for the Tl CPU orany other 6800 series system. Tl also has non-SS-50 
buss single board 6800 systems. 







§ 




SS-50 SUPER CPU 

• SS-50 or stand alone computer 

• IK of RAM at $A000 I/O on board at $A400 (Relocatable) 

• 2K Monitor (Mikbug compatible) in 2708 EPROM 

• 2 8 bit parallel ports with 2 control bits and power 

• RS-232 ACIA port, 2nd TTL ACIA optional 

• 3 16 bit counter/timers (expandable to 6 add 2nd 6840) 

• 128 byte RAM at 0000 is jumper selectable 

• Battery back-up for 32 bytes of RAM 

• Plug back to back with Video RAM for Stand alone micro or 
customized smart terminal 

ASSEMBLED $195.00 
CARD AND DOCUMENTATION $49.00 



SS-50 VIDEO RAM 

• Fully synchronous operation — No jitter 

• 7 by 9 Characters Programmable reverse video 

• Full 128 Character ASCII set 

• IK of memory can be mapped to any IK boundary 

• Full documentation includes software {Replaces OUTEE) 

ASSEMBLED $149.00 
CARD, CRYSTAL and DOCUMENTATION $39.00 



4£#lftr 
■■■■11 
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Tl SS-50 Wire-Wrap Card 24.00 

Tl SS-50 Parallel I/O Card 95.00 

Card only 35.00 

GIMIX I6K Static RAM w/Soft addressing 359.00 

GIMIX 16 RAM without Soft addressing 290.00 

3, 4, 7 SLOT Backplanes (per slot) 4.00 

Tl cards available from stock 

THOMAS 

INSTRUMENTATION _ M1 __ _^„ 

DEALERS FOR 

2709 Dune Drive, Avalon, N.J. 08202 

Phone (609) 967^280 QIMIX SWTPC SSB 



CALL FOR DEALER, OEM. AND QUANTITY PRICES 
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Full Feature Prototyping Boards for Your 6800/6809 /u.C ..from Percom 





[jj-rnTTMHimHHHlHT 



S24.95 



• Boards accommodale 14-, 16-, 24- and 40-pin DIP 
sockets. 

• Top edge and side edge connectors are easy to intercon- 
nect to, provide lor more accessible test points. 

• Use either wire wrap, wiring pencil or solder wiring. 



• interdigitated power conductors simptity chip power 
connections. 

• Contact holes lor distributed capacitor bypassing. 

• Printed wiring Is 2-oz copper with retlowed tin-lead plat- 
ing that wets quickly tor easy soldering. 

• Substrate is FR4-G10 epoxy-glass. 




. 



Percom o 



enphtnls tor penonMl compute 



a place an order or request additional literati* 
cafi toll-free 1-800-527-1592. Far technical infor- 
mation call (2 1 4) 2 72 -342 1 Orders may be paid by 
check, money order. COO or charged to a VISA or 
Master Charge account Texas residents must add 
5% sales tax 




*B 
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SMOKE SIGNAL BROADCASTING 

PRESENTS... 

THE SMOKE WRITER (VDB-1) 

The SSli SMOKE WHITER incorporates the lalest advances in electronic 
lechnijlogy to bring you and the SS-50 bus a truly unique video display board. 

The SMOKE WRITER uses the MC6845 CRT Controller chip and provides 
total control over the display format. 



*c* 



^ 
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The standard feattires o 
the SMOKE WRITER are 



*a 



$9 






Oo 






• 80 x 24 display ivilh 32 graphic, 
characters. Optional character 
generator ROM with 128 ASCII 
characters plus 128 graphic 
characters. 

• Upper anil lower case characters 
ivilh loiver case descenders. 

• Programmable character set, a 
total of 128 characters in a 2K 
EPROM; a 256 character 4K 
EPROM is optional. 



• Reduced intensity or reversed 
video 

• Programmable display rale (10 to 
5000 character per second) equiva- 
lent to 100 to 50K baud. 

• Protected fields. 

• Addressable Cursor. 

• 2K video display RAM accessible 
by the CPU as standard RAM 
Memory. 



• IK EPROM JorSoj tuare drivers. • 128 Bytes of Scratch pad RAM. 



If you. have a need for a fast and dependable video display board, Smoke Signal 
Broadcasting has what you. are looking for. The SMOKE WRITER is right at 
home when used with a cursor based editor or in a business program that needs 
protected fields. 




situ mmv^moMgm 

31336 Via Colinas, Westlake Village, CA 91361, (213) 889-9340 
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For your SWTP 6800 Computer . . . 

PERC0MV 
FLOPPY DISK SYSTEM 

the 



LJ 



Ready to plug In and run the moment you receive 
it. Nothing else to buy, no extra memory. No 
• booting" with PerCom MINIDOS-PLUSX~, the 
remarkable disk operating system on EPROM. 
Expandable to either two or three drives. 
Outstanding operating, utility and application 
programs. 





fully assembled and tested 
shipping paid 




PERCOM DATA COMPANY, INC. 

211 N. Kirby Garland, TX 75042 
(214)272-3421 



For (he low S599.95 prlca, you not only get the disk drive, drive power 
supply. SS-SO bus controller/interlace card, and MINIDOSPLUSX" 
you also receive 

* an attractive metal enclosure • a fully assembled and tested Inter- 
connecting cable • a 70-page instruction manual that Includes operat- 
ing Instructions, schematics, service procedures and a complete list- 
ing of M1NIDOS" • technical memo updates — helptul hints which 
supplement the manual instructions • a 90-day limited warranty 

SOFTWARE FOR THE LFD-400 SYSTEM 
Disk operating and tile management systems 
INDEX™ The most advanced disk operating and file management 
system available for Ihe 6800. INterrupt Driven Executive operating 
system features lile-and-device- Independent, queue-bultered 
character stream I/O Llnked-flte disk architecture, with automatic file 
creation and allocation lor ASCII and binary tiles, supports sequential 
and semi-random access disk files. Mulll-laval file name directory 
Includes name, extension, version, protection and date Requires 8K 

RAM at SAOO0. Diskette includes nume ous utilities £99.95 

BASIC Interpreters and Compilers 
SUPER BASIC A 10K extended disk BASIC Interpreter for the 6800. 
Faster than SWTP BASIC Handles data files Programs may be 
prepared using a text edilor described below S49.95 

BASIC B ANDAID- Turn SWTP 8K BASIC Into a random access data 
tile disk BASIC Includes many speed Improvements, and program 

dlskCHAINing S17 95 

STRUB AL+"'A STRUctured BAsIc Language compiler for Hie pro- 
fessional programmer. 14-digil floating point, strings, scientific func- 
tions, 2-dimensional arrays Requires 20K RAM and Linkage Editor 
(see below) Use of the tallowing text editors to prepare programs. 
Complete with RUN-TIME and FLOATING POINT packages S249.95 

Text Editors and Processors 
EDIT68 Hemenway Associates' powerful disk-based text editor. May 
he used to create programs and data files Supports MACROS which 
perform complex, repetitive editing functions. Permits text files larger 
than available RAM to be created and edited S39 95 

TOUCHUP™ Modifies TSC's Text Editor and Text Processor tor Par- 
Corn disk operation. ROLL function peimits text files larger than 
available RAM to be created and ediled Supplied on diskette com- 
plete with source listing ...817.95 

Assemblers 
PerCom 6900 SYMBOLIC ASSEMBLER Specify assembly options 
at lime of assembly with this symbolic assembler Sou ce listing on 
diskette $29.95 

MACRO-RELOCATING ASSEMBLER Hemenway Associates 
assembler for the programming professional. Generates relocatable 
linking object code. Supports MACROS Permits conditional 
assembly S79.95 

LINKAGE EDITOR - tor STRUBAL-l-™ and the MACRO-Relocatmg 
assembler S49.9S 

CROSS REFERENCE Utility program that produces a c oss- 
reference listing of an Input source listing file . $29 95 

Business Applications 
GENERAL LEDGER SYSTEM Accommodates up to 250 accounts. 
Financial Inlormatwn Immediately available — no soning required. 
Audit trail information permits tracking from GL record data back to 
source document User defines account numbers $199.95 

FULL FUNCTION MAILING LIST700 addresses perdisketle Power- 
ful search, soil, create and update capability S99 95 
PERCOM FINDER" General purpose information etheval system 
and data base manager $99.95 



Now! The LFD-800 and LFD-1000. Add one, two or three 
LFO-800 drives and store 200K bytes per drive on-line. Add 
one or two (dual-drive) LFD-1000 units and store 800K bytes 
per unit on-line. Complete with interface/controller, DOS. 
cable & manuals. Two-drive systems LFO-800 — $1549. 
LFD-1000 — $2495. 



PERCOM peripherals for peisonal computing' 
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